Notes-Daten in OOo-Vorlage einfügen

[MoC08]

Guten Morgen,

habe ein schönes Problem, welches sowohl Lotus Notes als auch OOo betrifft, der Notes-Teil ist praktisch gelöst, jetzt geht es nur noch darum Notes zu sagen wo er die Daten hinschicken soll...

Also ganz einfach ich habe in Notes diverse Felder ausgelesen und möchte die Daten davon (letztendlich) an eine Vorlage in OOo schicken und der Text soll natürlich an die richtige Stelle.
Bis jetzt weiß ich nur wie ich die Daten an OOo schicken kann, aber nur in ein leeres Doc und auch einfach hintereinander weg, sollte eigentlich als Adresse fungieren...

hier mein Notes Code:

Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim composed As String
Set uidoc = workspace.CurrentDocument
company = uidoc.FieldGetText( "CompanyName" )
anrede = uidoc.FieldGetText("Anrede")
fname = uidoc.FieldGetText("dspFullName")
Set SM=CreateObject("com.sun.star.ServiceManager")
Set Desktop=SM.createInstance("com.sun.star.frame.Desktop")
Dim args()
Set WriterApplication=Desktop.loadComponentFromURL("private:factory/swriter","_blank",0,args)
Set WriterText=WriterApplication.getText()
Set Cursor=WriterText.createTextCursor()
Call WriterText.insertString(Cursor,company,False)
Call WriterText.insertString(Cursor,anrede,False)
Call WriterText.insertString(Cursor,fname,False)
End Sub

[MoC08]

Sub Click(Source As Button)

On Error Goto errhdlr

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document

'liest Infos aus den Feldern der Maske aus
company = uidoc.FieldGetText( "CompanyName" )
company2 = uidoc.FieldGetText("CompanyName2")
anrede = uidoc.FieldGetText("Anrede")
fname = uidoc.FieldGetText("dspFullName")
strasse=uidoc.FieldGetText("OfficeStreetAddress")
plz = uidoc.FieldGetText("OfficeZip")
ort = uidoc.FieldGetText("OfficeCity")

Dim Konda
If company <> "" Then Konda = company & Chr$(10)
If company2 <> "" Then Konda = Konda & company2 & Chr$(10)
If anrede <> "" Then Konda = Konda & anrede & " "
If fname <> "" Then Konda = Konda & fname & Chr$(10)
If strasse <> "" Then Konda = Konda & strasse & Chr$(10)
If plz <> "" Then Konda = Konda & plz & " "
If ort <> "" Then Konda = Konda & ort

Dim SM As Variant
Dim Desktop As Variant
Set SM=CreateObject("com.sun.star.ServiceManager")
Set Desktop=SM.createInstance("com.sun.star.frame.Desktop")

Dim args()
Dim objDocument As Variant
Set objDocument=Desktop.loadComponentFromURL("file:///r:/Eigene Dateien/myLetterTemplate.ott","_blank",0,args)

Dim objText As Variant
Set objText = objDocument.getText()

'Kontaktdatenfeld wird in der OOo-Vorlage gesucht und durch Konda ersetzt
Dim asearch As Variant
Dim afound As Variant
Set asearch = objDocument.createSearchDescriptor()
asearch.searchstring=syscompany
asearch.replacestring=Konda
asearch.searchwords=True
asearch.searchcasesensitive = False
afound = objDocument.replaceAll(asearch)


Exit Sub

errhdlr:
Msgbox "An error occurred: " & Error$
Exit Sub

End Sub