Hi,
this will work in LO 4 and LO 5:
OPTION EXPLICIT
Sub oJavaScriptMacro
Dim oMSPF as Object
Dim oSP as Object
Dim oScript as Object
oMSPF =
GetDefaultContext.getValueByName("/singletons/com.sun.star.script.provider.theMasterScriptProviderFactory")
oSP = oMSPF.createScriptProvider("")
' JavaScript Macro
oScript =
oSP.getScript("vnd.sun.star.script:HelloWorld.helloworld.js?language=JavaScript&location=share")
oScript.invoke(Array(), Array(), Array())
End Sub
Regards
Oliver
_______________________________________________
LibreOffice mailing list
LibreOffice@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice