Als Standard will ich sie aber nicht definieren, da ich sie nicht jedes Mal brauche.
Obwohl Standard ja nun garnicht heißt das Du sie jedes Mal brauchen sollst, so bedeutet das doch das Standard die am häufigsten benutzte Vorlage sein sollte. Und genau das scheint bei Dir ja der Fall zu sein, so das ich nicht verstehe warum das nun unbedingt mit einer Schaltfläche erfolgen soll ... (ganz einfach weil ich es für unlogisch halte die Erleichterungen die OOo bietet erst außer Kraft zu setzen und dann anschließend mittels Makro wieder nachzubilden)
Wie auch immer, dieser Code macht das:
Code: Alles auswählen
Sub Main
Dim args() As New com.sun.star.beans.PropertyValue
Dim sURL As String
sURL = "C:\Dokumente und Einstellungen\internet\Anwendungsdaten\OpenOffice.org2\user\template\test.ott"
StarDesktop.LoadComponentFromUrl(ConvertToURL(sURL), "_blank", 0, args())
End Sub
ersetze sURL durch den Pfad Deiner Vorlage und ordne das Ganze in eine der OOo-Bibliotheken ein wie schon beschrieben. Danach ordne es einer Schaltfläche zu und Du hast was Du willst.
Gruß
Stephan