Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Alirion am 26.06.03 - 08:45:30

Titel: Export von Dokumentfeldern nach MS-Word
Beitrag von: Alirion am 26.06.03 - 08:45:30

Hallo zusammen,

folgendes Problem:

Aus einem Dokument heraus sollen Feldinhalte in eine bekannte Wordvorlage exportiert werden. In der Wordvorlage existieren Textmarken/Bookmarks, die die entsprechenden Feldinhalte auch aufnehmen. Bei allen Feldern funktioniert alles wie gewünscht, jedoch besteht eine Ausnahme:

Bei einem Richtextfeld sind die Inhalte gemischt. Es gibt Bilder und Text (formatiert durch Benutzer). Bilder und Text werden eventuell durch Tastenkürzel aus anderen Applikationen in das RTFeld hineinkopiert. Bei der Übergabe an Word habe ich jetzt das Problem, das der Inhalt der Textmarke entweder nur Text (Übergabe durch -> item.Text) ist.

Die Ausgabe soll aber genauso entsprechen, wie im Notesdokument dargestellt.

Variante, die Bilder vom Text zu trennen ist nicht gewünscht.

Bin für jeden Rat dankbar.

Titel: Re:Export von Dokumentfeldern nach MS-Word
Beitrag von: ata am 26.06.03 - 09:35:48

... wenn sich das in Notes im Frontend abspielt, dann hätte ich eine Idee dies über den Zwischenspeicher zu lösen - im Backend habe ich gerade keine Idee...

... in Word hast du die Möglichkeit den Inhalt der Textmarke zu befüllen., oder aber zur Textmarke navigieren und dort dann zum Beispiel den Zwischenspeicher per Paste einzutragen...

ata

Titel: Re:Export von Dokumentfeldern nach MS-Word
Beitrag von: Alirion am 26.06.03 - 09:45:16

danke erstmal, für die superschnelle Antwort.

Ich stehe gerade etwas auf der Leitung.

Könntest Du mir das bitte etwas genauer erklären?

Titel: Re:Export von Dokumentfeldern nach MS-Word
Beitrag von: ata am 26.06.03 - 09:48:30

... wen du mit Word-Textmarken arbeitest, dann sind das ja WORD-Objekte. Du kannst mit *GoTo* an eine Textmarke navigieren und über das Objekt *Zwischenspeicher* an dieser Stelle pasten - das ist der eine Weg...

... der andere wiest dem Textmarken-Inhalt einen neuen Wert zu...

Immer noch unverständlich?

ata

Titel: Re:Export von Dokumentfeldern nach MS-Word
Beitrag von: Alirion am 26.06.03 - 10:39:28

Ehrlich gesagt, ja!

Mein Vorgehen ist bisher, das ich in der Wordvorlage die entsprechenden Textmarken erzeugt habe.

Meine Situation:

"
Dim Word As Variant
Dim Letter As Variant
...
Set Word = CreateObject("Word.Application")
Set Letter = Word.documents.Add("Vorlage.doc")
Set Range = Letter.Bookmarks(bookmark).Range
"
Mit einem LotusScript Code ermittle ich vorsichtshalber, ob die "bookmark" vorhanden ist. Danach hole ich mir das item aus dem backend document. Sind beide, bookmark und item) vorhanden, dann gebe ich die Anweisung "Letter.Range.Text = item.text". Klar, das das bei RTFeldern ein Problem ist, da er die Textelemente aus dem Fels holt (leider auch unformatiert!) und nur diese in die bookmark schreibt.

Auf diese Weise benötige ich keine GoTo Routine für die bookmarks, sondern spreche sie direkt an.

Anschließend aktiviere ich Word

Bisher ist mir unklar, wie ich den Zwischenspeicher füllen und abrufen soll.

Solltest Du eine Variante haben, die von meiner abweicht, wäre ich Dir dankbar, wenn Du sie mir als Code (vielleicht?) zukommen lassen könntest.

Titel: Re:Export von Dokumentfeldern nach MS-Word
Beitrag von: ata am 26.06.03 - 11:35:25

... 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

Titel: Re:Export von Dokumentfeldern nach MS-Word
Beitrag von: Alirion am 01.07.03 - 08:17:07

Bin ich vergessen worden?

Titel: Re:Export von Dokumentfeldern nach MS-Word
Beitrag von: Axel am 01.07.03 - 08:27:57

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

Titel: Re:Export von Dokumentfeldern nach MS-Word
Beitrag von: meichhorner am 01.07.03 - 09:58:41

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

Cu
Martin

Titel: Re:Export von Dokumentfeldern nach MS-Word
Beitrag von: Alirion am 01.07.03 - 10:46:08

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

Ihr wart echt eine gute Hilfe!!!!