Domino 9 und frühere Versionen > ND7: Entwicklung

Rahmen in Word aus Notes bearbeiten

(1/1)

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

--- Ende Code ---

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
--- Ende Code ---

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

Navigation

[0] Themen-Index