Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

Aus Notes in Word Tabellen modifizieren

<< < (2/2)

Axel:
Eine Idee wäre, den kompletten Inhalt der entsprechenden Zelle kopieren (auch wenn es sich nur um Zeilenschaltungen handelt) und dann in die Zelle der neuen Zeile einfügen. Dann sollten auch die Formatierungen mitgenommen werden.

Ist aber nur mal so 'ne Idee. Ob's funktioniert müsste man testen.

Axel

Glombi:
paragraph oder paragraphs ?

Barbara:
Guten Morgen,

@Andreas: natürlich paragraphs, irgendwann sollte man einfach die Kiste runterfahren und was ganz anderes machen  :)

@Axel: die Idee war super, jetzt klappts.

hier der code:

--- Code: ---....
While Not doc Is Nothing
y=y+1
Liste = auslesen(db,session,doc)
wwApp.ActiveDocument.Tables(1).cell(y+1,1).Range.text =Liste(0,0)+Chr(13)+Liste(0,1)
wwApp.ActiveDocument.Tables(1).cell(y+1,2).Range.text = Liste(1,0) +Chr(13) + Chr(10)
wwApp.ActiveDocument.Tables(1).cell(y+1,2).Range.insertafter(Liste(1,1))
wwApp.ActiveDocument.Tables(1).cell(y+1,3).Range.text =Liste(2,0)
wwApp.ActiveDocument.Tables(1).cell(y+1,4).Range.text =Liste(4,0)
wwApp.ActiveDocument.Tables(1).cell(y+1,5).Range.text =Liste(5,0)
wwApp.ActiveDocument.Tables(1).cell(y+1,6).Range.text = Liste(6,0)

'neue Zeile anhängen
Set Selection = wwApp.Selection
Selection.MoveRight(wdCell)
Selection.MoveRight(wdCell)
Selection.MoveRight(wdCell)
Selection.MoveRight(wdCell)
Selection.MoveRight(wdCell)
If y=1 Then Selection.MoveDown(wdLine) 'nur in der Titelzeile muss nach unten gesprungen werden
wwApp.Selection.MoveRight(wdCell)

'2.Zelle kopieren um Formate zu übernehmen
wwApp.ActiveDocument.Tables(1).cell(y+1,2).Range.copy
wwApp.ActiveDocument.Tables(1).cell(y+2,2).Range.paste

Set doc = view.GetNextDocument(doc)
wend
wwApp.ActiveDocument.Tables(1).rows(y+2).delete 'letzte Zeile löschen enthält nur kopierte 2. Zelle

Call wwbook.saveas(Pfad(0)+"RefList_01_"+dateidatum.dateonly+".doc")
--- Ende Code ---

Vielen, vielen Dank - ich frage mich warum ich überhaupt erst noch im ms-office-forum fremdgegangen bin. Hier ist man immer wieder gut aufgehoben. :love:

Ein schönes Wochenende

Barbara

Navigation

[0] Themen-Index

[*] Vorherige Sete