Rahmen in Word aus Notes bearbeiten

[Puthy]

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:

Code

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?

[Glombi]

Notes kennt die MS Konstanten nicht, daher musst Du den Zahlwert verwenden.

Eine Liste der Konstanten und der zugehörigen Werte findest Du hier (ich habe das jetzt mal fixiert):

http://atnotes.de/index.php?topic=34333.0

Demnach müsste LineStyleNone den Wert 0 haben:

objWordTableRow.Cells(counterWriteList).Range.Borders(wdBorderTop).LineStyle = 0

Andreas

[Puthy]

Ok *an den Kopf fass* ist ja auch logisch 

Ich hätt da aber noch etwas anderes und zwar

Code

	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?

[Glombi]

Ich gehe bei solchen Sachen immer so vor:
1. Worddokument öffnen und Makro aufzeichen starten.
2. Dann die gewünschten Aktionen durchführen und die Makroauszeichnung beenden.
3. Anschließend dann den Visual Basic Code in LotusScript umbasteln.

Vielleicht siehts Du ja schon in Schritt 2 wo der Fehler liegen könnte.

Andreas