Tobias Burnus wrote:
Hello,
this is kind of a follow up to my question in 2003
(http://www.openoffice.org/servlets/ReadMsg?list=users&msgNo=17481).
I would like to add a button to the toolbar, which upon clicking creates
a new document based on a certain template.
Unfortunally, the macro recoder does not work and I couldn't find the
right macros to write this macro myself.
With OpenOffice 1.x the following macro (see link above) worked:
Sub CallTemplate
dim oTemplate as object
dim sTemplatePath as string
dim mNoArgs()
sTemplatePath="file:///C:/WINNT/Profiles/des.DOUGAN.000/Application
Data/OpenOffice.org/user/template/VCC/Memo.stw"
oTemplate = StarDesktop.LoadComponentFromURL(sTemplatePath, "_blank",
0, mNoArgs())
End sub
But if I use this macro with OpenOffice 2.0.x, printing does not work
and the filename (according to the window caption) is "" rather than
"Untitled<n>". (Workaround: Click on the edit button twice - brings up
"readonly - create copy"; that copy I can now print.)
Any ideas how a properly working macro looks like?
Tobias
PS: The missing macro recorder is issue 66183 (OOo later), that the old
marco doesn't work is issue 66184 (unconfirmed).
I am of the opinion that this macro should not have worked as a
template... It should have merely opened the document normally... Does
this work for you?
Sub NewDoc
Dim oDoc
Dim sPath$
Dim a(0) As New com.sun.star.beans.PropertyValue
a(0).Name = "AsTemplate"
a(0).Value = true
sPath$ = "file://~/Documents/DocTemplate.stw"
oDoc = StarDesktop.LoadComponentFromUrl(sPath$, "_blank" , 0, a())
End Sub
--
Andrew Pitonyak
My Macro Document: http://www.pitonyak.org/AndrewMacro.odt
My Book: http://www.hentzenwerke.com/catalog/oome.htm
Info: http://www.pitonyak.org/oo.php
See Also: http://documentation.openoffice.org/HOW_TO/index.html
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
