OpenOffice.info

Msgbox "BlaBla" 

[quote]nur halt nicht in Einzelschritten.[/quote]

dann sollte es möglich sein, nach jeder Codezeile eine Zeile:

[code]Msgbox "BlaBla" [/code]

einzufügen damit das Makro stoppt.


Gruß
Stephan

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]

wenn das Dokument per Makro geladen wird musst Du den MacroExecMode als Parameter übergeben, damit Makros laufen, siehe z.B.:
http://de.openoffice.info/viewtopic.php?t=3023


Gruß
Stephan

Guten Morgen.
Aus einer ToDo-Datei starte ich Makros in anderen Calc-Dokumenten (Öffnen - csv-Import - Aktualisierung von Pivottabellen/Diagrammen - Speichern) mit DPunch's Makro als Basis:
[url]http://de.openoffice.info/viewtopic.php?t=52461#p196299[/url]
Klappt einwandfrei.
Wenn ich zur Kontrolle dieses Makro in Einzelschritten ausführen möchte, erhalte ich bei Wechsel in das Makro des anderen Dokumentes die Meldung "Aus Sicherheitsgründen ist dieses Makro nicht ausführbar." - und das bei niedriger Makrosicherheit/vertrauenswürdigem Speicherort.
Hat jemand eine Lösung, wie ich die Kontrolle fortsetzen kann?
Gruß
Uwe