OpenOffice.info

Super danke!

Hallo Rom,

[quote="ROM"]Kann man das so machen oder bekomme dann irgendwo Probleme?[/quote]

Nicht das ich wüsste.

Jürgen

Hallo,

danke für die Info.

Ich habe das Makro an das Ereignis neues Dokument gehängt. Dann funktioniert es. Kann man das so machen oder bekomme dann irgendwo Probleme?

Vg
Rom

myFileProp(1).Name = "MacroExecutionMode"
myFileProp(1).value = 4 

Versuche es mal so:

[code]myFileProp(1).Name = "MacroExecutionMode"
myFileProp(1).value = 4 [/code]

Hallo,

danke für die Info.


Leider funktioniert es nicht, wenn ich das Makro dem "Dokument erzeugt" hinterlege.

Gibt es dafür noch andere Ursachen?

vg
Rom

Hallo,

Menue > Extras > Anpassen > Reiter Ereignisse

und dort das Makro zuweisen.

Jürgen

Hallo Jürgen,

danke für deine Antwort. Wo hinterlege ich die Eigenschaften?

Vg
Rom

Hallo Rom,

ich weis ja jetzt nicht wie Du das Makro in der Vorlage startest.
Vermutlich hast Du es mit dem Ereignis "Datei öffen" verknüpft.

Bei einer Vorlage sollte das aber mit dem Ereignis "Dokument erzeugen" verknüpft sein.

Hilft das weiter?

Jürgen

Dim myFileProp(1) as new com.sun.star.beans.PropertyValue
Dim oDesktop as Object
Dim oDocument as Object
Dim sSourceFile as String

oDesktop = createUnoService("com.sun.star.frame.Desktop")
sSourceFile = ConvertToUrl(strPfad)

myFileProp(0).Name = "AsTemplate"
myFileProp(0).Value = true	
myFileProp(1).Name = "MacroExecutionMode"
myFileProp(1).value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN 

oDocument = oDesktop.loadComponentFromURL( sSourceFile, "_blank",0,MyFileProp()) 	
DlgVorlage2.dispose() ' Das Dialog, aus dem die Vorlage geöffnet wird

Hallo,

ich habe ein kleines Problem mit einem Makro beim Dokumentenaufruf.

Ich habe mir Makros geschrieben und diese in MeineMakros abgelegt.

Diese Makros prüfen einiges usw. und öffnen dann eine *.ott. In dieser Vorlage ist ein Makro hinterlegt. Dieses Makro wird aber nicht ausgeführt, wenn sich die Vorlage öffnet. Muss ich etwas spezielles machen, damit das Makro ausgeführt wird?

Momentan rufe ich die Vorlage folgendermaßen auf:

[code]
Dim myFileProp(1) as new com.sun.star.beans.PropertyValue
Dim oDesktop as Object
Dim oDocument as Object
Dim sSourceFile as String

oDesktop = createUnoService("com.sun.star.frame.Desktop")
sSourceFile = ConvertToUrl(strPfad)

myFileProp(0).Name = "AsTemplate"
myFileProp(0).Value = true
myFileProp(1).Name = "MacroExecutionMode"
myFileProp(1).value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN

oDocument = oDesktop.loadComponentFromURL( sSourceFile, "_blank",0,MyFileProp())
DlgVorlage2.dispose() ' Das Dialog, aus dem die Vorlage geöffnet wird
[/code]

Hat jmd. eine Idee?

Danke!

Vg
Rom