Makro aus anderer Datei in Einzelschritten nicht ausführbar

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

retuwe61
****
Beiträge: 155
Registriert: So, 18.11.2007 21:25

Makro aus anderer Datei in Einzelschritten nicht ausführbar

Beitrag von retuwe61 » Fr, 24.11.2017 09:36

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:
viewtopic.php?t=52461#p196299
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
Angewandt wird LibeOffice Version 5.1.6.2

Stephan
********
Beiträge: 10242
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Makro aus anderer Datei in Einzelschritten nicht ausführbar

Beitrag von Stephan » Fr, 24.11.2017 09:57

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


Gruß
Stephan

retuwe61
****
Beiträge: 155
Registriert: So, 18.11.2007 21:25

Re: Makro aus anderer Datei in Einzelschritten nicht ausführbar

Beitrag 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
Angewandt wird LibeOffice Version 5.1.6.2

Stephan
********
Beiträge: 10242
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Makro aus anderer Datei in Einzelschritten nicht ausführbar

Beitrag von Stephan » Fr, 24.11.2017 10:41

nur halt nicht in Einzelschritten.
dann sollte es möglich sein, nach jeder Codezeile eine Zeile:

Code: Alles auswählen

Msgbox "BlaBla" 
einzufügen damit das Makro stoppt.


Gruß
Stephan

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 18 Gäste