Hallo zusammen!
Ich habe nun OpenOffice1.1.1 auf meiner Windoof Maschine und möchte aus einer Notes-Datenbank damit WriterDokumente erstellen und diese mit Daten aus der NotesDb befüllen.
Hat das schon mal jemand von euch gemacht? Gibt es irgendwie und -wo einen Lösungsansatz... bis jetzt bin ich nur soweit, das ich aus Notes ein WriterDoc erstellen und irgendwo Text einfüllen kann, aber leider nicht in Textfeldern...
mein bisheriger code sieht wie folgt aus:
Sub Click(Source As Button)
' ----- Deklarationen für Lotus
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
' ----- Deklarationen für OOo
Dim noargs()
' ----- Application erstellen
Set starManager = CreateObject("com.sun.star.ServiceManager")
' ----- StarOffice Desktop
Set starDesktop = starManager.createInstance("com.sun.star.frame.Desktop")
' ----- Dokument laden (leeres Dokument öffnen)
'Set starWriterDocument = starDesktop.loadComponentfromURL("private:factory/swriter", "_blank", 0, noargs())
' ----- bestehendes Dokument laden
url = "file:///d:/temp/testln.sxw"
Set doc = starDesktop.loadComponentfromURL(url, "_blank", 0, noargs())
' ----- Daten in das Dokument schreiben
Set Cursor = doc.Text.createTextCursor()
Set dtf = doc.CreateInstance("com.sun.star.text.TextField.DateTime")
dtf.IsFixed = False ' false = Date/Time automatisch aktualisiert
dtf.IsDate = True ' true = Datum / false = Uhrzeit
Call doc.Text.insertTextContent(Cursor, dtf, False)
End Sub
Bin für jeden Tipp dankbar!
