OpenOffice.info

Stephan hat geschrieben:aber egal, Dein Ansatz ist im DEtail interessanter.

craig22 hat geschrieben: Sa, 28.11.2020 20:14 ...
Wenn ich die letzte Antwort in Deinen Bug-Report richtig verstanden
habe, dann kann LO WSH nicht ausführen, weil es 64-bittig ist.

Soweit ich das verstanden habe, ist das Problem, das ein 32 Bit Office auf einen 64-bit wsh treffen kann und umgekehrt, was in beiden Fällen nicht funktionieren würde.

Sub WSH_Test()
	Dim par(0) as New com.sun.star.beans.PropertyValue
	par(0).Name = "Hidden"
	par(0).Value = True
	
	Dim x As String
	
	x = "On Error Resume Next"
	x = x & CHR(13) & "Set oServiceManager = CreateObject(""com.sun.star.ServiceManager"")"
	x = x & CHR(13) & "Set oDesktop = oServiceManager.CreateInstance(""com.sun.star.frame.Desktop"")"
	x = x & CHR(13) & "Dim mNoArgs()"
	x = x & CHR(13) & "Set oDispatcher = oServiceManager.CreateInstance(""com.sun.star.frame.DispatchHelper"")"
	x = x & CHR(13) & "ergebnis = oDispatcher.executeDispatch(oDesktop, ""macro:///Standard.Module1.Main"", """", 0, mNoArgs)"
	
	doc = StarDesktop.loadComponentFromURL( "private:factory/swriter" , "_blank", 0, par() )
	doc.Text.String = x
	
	par(0).Name = "FilterName"
	par(0).Value = "Text"
	doc.storeToUrl(ConvertToURL("D:\meinScript.vbs") , par())
	doc.close(True)
	
	'Wait 100
	
	Dim starten as object 
	starten = createUnoService("com.sun.star.system.SystemShellExecute") 
	starten.execute(ConvertToUrl("D:\meinScript.vbs"), "", 0)
End Sub

• AOO 4.1.6
  • Funktioniert bei mir, wenn das aufrufende Makro (Sub WSH_Test()) im selben Modul wie das auszuführende Makro (Sub Test()) steht.
  • Wenn das aufrufende Makro (WSH_Test()) in einem anderen Modul steht, als das auszuführende Makro (Test()), dann
    läuft das Makro kommentarlos durch, ruft aber nicht "Sub Test()" auf.
  • Fehlermeldung wenn ich „On Error“ deaktiviere.
• LO 7.0.1.2 (x64)
  • Funktioniert bei mir in beiden Fällen nicht, d.h. "Sub Test()" wird nicht aufgerufen.
  • Keine Fehlermeldung, auch nicht wenn ich „On Error“ deaktiviere.
• LO 7.2.0.0.alpha0+ (x64)
  • Funktioniert bei mir in beiden Fällen nicht, d.h. "Sub Test()" wird nicht aufgerufen.
  • Keine Fehlermeldung, auch nicht wenn ich „On Error“ deaktiviere.

Wenn das aufrufende Makro (WSH_Test()) in einem anderen Modul steht, als das auszuführende Makro (Test()), dann
läuft das Makro kommentarlos durch, ruft aber nicht "Sub Test()" auf.

Offensichtlich muss, unter diesen Bedingungen, die Bibliothek vorher gelanden werden.

1. Laden der Bibliothek "Standard" Bezug auf das Dokument, nicht auf "Meine Makros & Dialog/ Standard"
   mittels

   Code: Alles auswählen

   BasicLibraries.LoadLibrary( "Standard" )

   veränderte auch nicht das Verhalten. Weder unter LO, noch unter AOO.
   
   D.h. für AOO Dein Script muss bei mir in dem Modul gespeichert sein, in welchem die aufzurufende Routine gespeichert ist.
   Modul1 = Script → Modul2 = Sub-Routine funktioniert nicht.

2. Ja, ich habe OO vorher neu gestartet um auszuschliessen das es im Hintergrunf die Bibliothek noch geladen hatte.

   Ja, habe ich auch erfolglos getestet

3. Stephan hat geschrieben:Könntest Du einmal schauen was passiert wenn Du bei Dir meinScript.vbs per Doppelklick startest?

   es blitzt nur kurz ein Fenster auf; Es passiert aber nichts.
   Egal ob AOO geschlossen ist oder ob das Dokument mit dem Makro geöffnet ist.
   Ich vermute, dass im Fall: AOO geschlossen ein solche Anweisung in der Batch fehlt:

   Code: Alles auswählen

   SET L="C:/Program Files/LibreOffice/program/soffice.exe"
   SET M="macro:///Standard.macro:///Standard.Module2.Main()"
   %L% --nologo %M%

4. Mein Verdacht geht nun in die Richtung, dass "meinScript.vbs" keine Angaben / keine URL zum Dokument enthält.
   oDesktop liefert das gesuchte Dokument nur über:

   Code: Alles auswählen

   oDesktop.Frames.getByIndex(?)

   Dazu ist dann aber noch eine Enumeration erforderlich, welche dann den Dokumenttitel ausliest und vergleicht.
   Der Index allein ist ja nichts sagend, man weiß nicht welcher Index das gewünschte Dokument wiederspiegelt.

Laden der Bibliothek "Standard" Bezug auf das Dokument, nicht auf "Meine Makros & Dialog/ Standard"
mittels

Stephan hat geschrieben:Das kann nichts bewirken denn es ist nicht möglich einfach(*) von außen her ein in einem Dokument gespeichertes Makro zu starten.
(*)
ich bin nicht sicher ob es jenseits des weiter unten stehenden nicht noch einen Trick gibt, irgendwie ist mir so als hätte mal jemand (ich nicht) etwasa ausgeknobelt.

Stephan hat geschrieben:Wenn ich Dein Tun richtig verstehe, dann solltest Du einfach mal das aufzurufende Makro in "Meine Makros ..." speichern.

GlobalScope.BasicLibraries.LoadLibrary( "Standard" )

Stephan hat geschrieben:Nicht ganz sicher bin ich mir ohne Nachrecherchieren ob nur der Weg über des Aufrufen eines Dokuments UND Start des Makros per Ereignis geht oder ob man bei Aufruf des Dokuments per Skript auch direkt ein Dokument-Makro per Parameter (zusätzlich) angeben kann.

Abschließend noch einen besonderen Dank an Pit für diese Anfrage.