Hey Jungs und natürlich auch Mädels ;)
ich versuche seit einer gewissen Zeit meine Tabelle in einem Word-Doc zu bearbeten aber irgendwie will der nicht so wie ich. Letztendlich will ich nur unter einer bestimmten Bedingung den oberen Rahmen einer Zelle ausblenden:
objWordTableRow.Cells(counterWriteList).Range.Text = gf
objWordTableRow.Cells(counterWriteList).Range.Style = "Standard" 'funzt super
If counterWriteList = 1 And lastCompo = gf Then
'rahmenn oben soll weg
objWordTableRow.Cells(counterWriteList).Range.Borders(wdBorderTop).LineStyle = LineStyleNone 'wird einfach ignoriert
Weiß jemand Rat? Muss man irgendwelche Konstanten setzen?
Ok *an den Kopf fass* ist ja auch logisch ;)
Ich hätt da aber noch etwas anderes und zwar
Const wdExtend = 1
Const wdCharacter = 1
Call objWordDocument.Tables.Item(2).Cell(2, 2).Range.MoveRight(wdCharacter, 2, wdExtend)
Call objWordDocument.Tables.Item(2).Cell(2, 2).Range.Cells.Merge
hier will ich eigentlich nur 2 Zellen mergen - ich habe mir mal aus dem Forum hier etwas herausgesucht und wenn ich ein einfaches Dokument mit einer einzigen Tabelle habe funzt das wohl auch. Sobald ich allerdings mein eigenes Dok mit 3 Tabellen verwende macht das Script nix mehr. Der Code sollte doch aber richtig sein oder?