Hallo Jörg, Halle Liste,
> So geht ein Textdokument mit VBA:
>
> Sub Main()
> Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
> Set oDesktop =
> oServiceManager.createInstance("com.sun.star.frame.Desktop")
> Dim aNoArgs()
> Set oDoc =
> oDesktop.loadComponentFromURL(ConvertToURL("C:\DeineVorlage.ott",
> "_blank", 0, aNoArgs())
> Set Cursor = oDoc.Text.createTextCursor()
> Cursor.String = "Nur ein Test."
> Call oDoc.storeToURL("file:///D:/doc.odt", aNoArgs())
> oDoc.Close (True)
> End Sub
Danke für das Listing. Ich werds mal anpassen und ausprobieren. Ich
meld mich dann noch mal.
Gruß Lars
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
