Noted RTF-Feld(mit Bild) in Word schreiben

Hi ihr,
ich versuche gerade ein LotusSript zu schreiben, in dem ich von einen geöffnetem Lotus Notes Dokument
per Aktionsschaltfläche bestimmte Felder in eine Wordvorlage (Formularfelder/Bookmarks) schreibe. Die normalen Textfelder funktionieren schon (formfield(x)). Nur die Rich-Text-Felder wollen nicht. In einem Beitrag habe ich gelesen, das RTFs über Kopieren und Einfügen zu übertragen sind (auch Bilder im einzelnen Feld). Das kopieren in die Zwischenablage funktioniert, sowie das Anspringen des Bookmarks. Aber das Einfügen in Word klappt leider nicht. Fehler: „Instance member SELECTION does not exist“. Ohne selection habe ich es auch schon versucht, aber dann kennt er PasteAndFormat nicht. Für das einfügen eines Bildes langt das einfache einfügen nicht (Bild ist grau), sondern das „Bearbeiten – Inhalt einfügen.. – Bitmap“ (Manuell). Kann mir von euch jemand sagen wie ich das von Notes aus in Word anstelle?
Hat vielleicht jemand von euch allgemein einen Tipp, wie man die Word-Objekte (VBA-Sprache in Makros) in Lotus (LotusScript-Sprache) umsetzt.
Da ich noch absolut neu bin in Notes, Designer und LotusScript, habe ich mir den Code aus einigen Beiträgen zusammengestellt.

Hier mein derzeitiges Script

Sub Click(Source As Button)
	Dim s As New notessession
	Dim word As Variant
	Dim worddoc As Variant

	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	Set uidoc = ws.CurrentDocument
	Set doc = uidoc.document

	'Word Dokument erstellen
	Set word =createobject("Word.Application") 'Word Objekt erstellen
	Call word.documents.add("Vorlage.dot") 'Neues Word-dokument aus Vorlage
	Set worddoc=word.activedocument 'Aktive Document wählen

	'Felder füllen
	worddoc.formfields(1).result=doc.Text1(0)
	worddoc.formfields(2).result=doc.Text2(0)
	worddoc.formfields(3).result=doc.Text3(0)
	worddoc.formfields(4).result=doc.Text4(0)
	worddoc.formfields(5).result=doc.Text5(0)
	'worddoc.formfields(6).result=doc.Text6(0) 'RTF-Feld geht nicht
	'worddoc.formfields(7).result=doc.Text7(0) 'RTF-Feld geht nicht
	'worddoc.formfields(8).result=doc.Text8(0) 'RTF-Feld geht nicht
	worddoc.formfields(9).result=doc.Text9(0)
	worddoc.Bookmarks("Bild").Select   ' Zu Textmarke springen in Word

	'Bild in Zwischenablage kopieren
	Call uidoc.gotofield("Bild")
	Call uidoc.SelectAll
	Call uidoc.Copy

	'Bild aus Zwischenablage einfügen
	worddoc.selection.PasteAndFormat (wdPasteDefault)

	'Dokument sichern
	worddoc.saveas("Test_Notes_1.doc")
	word.visible=True 'Word sehen
	'word.quit 'zum schliessen von Word

	Call uidoc.close


End Sub

Danke im Voraus
mfg Christian

Notes R5.0.12, WinXP/Win2k, wordXp/97

Hi knaepp,
Danke für deine Antwort.
Die Anspielung mit dem Debugger habe ich gecheckt,
leider kenne ich mich in diesem nicht aus. Da ich
aber in Zukunft mehr damit zu tun habe, werde ich
mich auf jeden fall damit beschäftigen, versprochen.

Die Formate oder bzw. in diesem Feld nur ein Bild
brauche ich aber unbedingt in Word.
Bis auf die Zeile

worddoc.selection.PasteAndFormat (wdPasteDefault)

funktioniert das Script (dem Anschein nach). Nur das
einfügen des Bildes aus dem Zwischenspeicher an die
Word-Textmarke klappt nicht.
Manuell über "Bearbeiten – Inhalt einfügen.. – Bitmap".

Anscheinend bleibt auch immer noch eine Word-Instanz
offen. Wie schließe ich die denn? Oder bleibt diese
nur stehen, wenn der Code mit Fehler abbricht?

Ich hoffe es macht sich jemand nochmal die Mühe sich
mit meinen Anfänger Problemen zu beschäftigen.

Danke im Voraus
mfg Chris