Domino 9 und frühere Versionen > Entwicklung

Export von Dokumentfeldern nach MS-Word

<< < (2/2)

ata:
... wen du etwas Geduld hast - in einem anderen Thread gehts um dynamische Tabellen - bei der Gelegeheit schau ich nach dem Code...

... bis heute Abend also

ata

Alirion:
Bin ich vergessen worden?

Axel:
Hi,

so was hab ich schon öfters gemacht. Hier ist der Code, so wie ich ihn in der Regel verwende.

...
Set objWord = CreateObject("Word.Application")
objWord.Documents.Add "vorlage.doc"
objWord.ActiveDocument.Bookmarks("Textmarke").Select   ' Zu Textmarke springen
objWord.Selection.TypeText "Das ist der Text"                                 ' text an Cursorposition einfügen
...  

Axel

meichhorner:
Hy,

und den Inhalt des Richtextfeldes kopierst du dir in die Zwischenablage und fügst ihn in Word ein.

Hier ein paar Codeschnipsel:


--- Code: ---Call copydoc.GoToField( "Text" )
Call copydoc.SelectAll
Call copydoc.Copy

Set word = CreateObject("Word.Application")
   
Call word.documents.add("P:\VORLAGEN\office.97-2\Vorlage.dot")
   
Set worddoc = word.activedocument
   
kunde = doc.GetItemValue( "Kunde" )
konto = doc.GetItemValue( "Konto" )
art = doc.GetItemValue( "Art" )
anrede = doc.GetItemValue( "Text" )
   
Call UpdateBookmark(worddoc,"Adresse",kunde(0))
Call UpdateBookmark(worddoc,"Betreff","Konto " + doc.Währung(0) + " " + konto(0) + Chr(13) + _
"Depot Nr. " + art(0))
   
worddoc.Bookmarks("Textanfang").Range.Paste

--- Ende Code ---

Cu
Martin

Alirion:
Dank, hat SUPER geklappt.
Mit dem verbundenen Problemen komme ich ebenfalls gut voran.

Ihr wart echt eine gute Hilfe!!!!

Navigation

[0] Themen-Index

[*] Vorherige Sete