von retuwe61 » Fr, 24.11.2017 10:25
Hallo Stephan.
Deinen Beitrag hatte ich natürlich schon vorher gefunden und versucht, das mit DPunch' s Makro zu verbinden. Leider ohne Erfolg.
Wie gesagt: Die Makros laufen - nur halt nicht in Einzelschritten.
Gruß
Uwe
Code: Alles auswählen
Sub ToDo
sURL = "/home/.../xxx.ods"
sLibName = "Library1" 'kein Passwort gesetzt
sModuleName = "Import"
sMakroName = "Import_Makros"
sURL = ConvertToURL(sURL)
Dim args(0) as new com.sun.star.beans.PropertyValue
Dim Dummy(0) as New com.sun.star.beans.PropertyValue
'args(0).Name = "Hidden"
'args(0).Value = True
Dummy(0).Name = "MacroExecutionMode"
Dummy(0).Value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN
oDocument = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, args)
sScriptURI = "vnd.sun.star.script:" & sLibName & "." & sModuleName & "." & sMakroName & "?language=Basic&location=document"
oScript = oDocument.ScriptProvider.getScript(sScriptURI)
REM Mit Parameter
REM oder ohne Parameter
oScript.invoke(Array(dummy),Array(),Array())
End Sub
Hallo Stephan.
Deinen Beitrag hatte ich natürlich schon vorher gefunden und versucht, das mit DPunch' s Makro zu verbinden. Leider ohne Erfolg.
Wie gesagt: Die Makros laufen - nur halt nicht in Einzelschritten.
Gruß
Uwe
[code]Sub ToDo
sURL = "/home/.../xxx.ods"
sLibName = "Library1" 'kein Passwort gesetzt
sModuleName = "Import"
sMakroName = "Import_Makros"
sURL = ConvertToURL(sURL)
Dim args(0) as new com.sun.star.beans.PropertyValue
Dim Dummy(0) as New com.sun.star.beans.PropertyValue
'args(0).Name = "Hidden"
'args(0).Value = True
Dummy(0).Name = "MacroExecutionMode"
Dummy(0).Value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN
oDocument = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, args)
sScriptURI = "vnd.sun.star.script:" & sLibName & "." & sModuleName & "." & sMakroName & "?language=Basic&location=document"
oScript = oDocument.ScriptProvider.getScript(sScriptURI)
REM Mit Parameter
REM oder ohne Parameter
oScript.invoke(Array(dummy),Array(),Array())
End Sub[/code]