6.1.13 Wie kann man eine neue Datei aus einer Vorlage öffnen?
Sub NewDocFromTemplate
     Dim myFileProp(0) As New com.sun.star.beans.PropertyValue
     oDesktop =   createUnoService("com.sun.star.frame.Desktop")
     sSourceFile = "file:///c:/test.sxw"
     myFileProp(0).Name = "AsTemplate"
     myFileProp(0).Value = True
     oDocument = oDesktop.loadComponentFromURL( sSourceFile, "_blank", 0, myFileProp() )
End Sub
Seitenanfang