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

Reply via email to