REM  *****  BASIC  *****

Option Explicit

Public Function GetPythonScript(macro As String, _
        Optional location As String) As com.sun.star.script.provider.Xscript
    ''' Tomar el objeto con las secuencias de Python antes de ejecutar
    ' Argumentos:
    '    macro   : como «library/module.py$macro» o «module.py$macro»
    '    location: como «document», «share», «user» o ENUM(eración)
    ' Resultado:
    '    localizose el servicio de UNO com.sun.star.script.provider.XScript'''
    If IsMissing(location) Then location = "user"
    Dim mspf As Object ' com.sun.star.script.provider.MasterScriptProviderFactory
    Dim sp As Object ' compatible con com.sun.star.script.provider.XScriptProvider
    Dim uri As String
    If location="document" Then
        sp = ThisComponent.getScriptProvider()
    Else
        mspf = CreateUNOService("com.sun.star.script.provider.MasterScriptProviderFactory")
        sp = mspf.createScriptProvider("")
    End If
    uri = "vnd.sun.star.script:"& macro &"?language=Python&location="& location
    GetPythonScript = sp.getScript(uri)
End Function ' GetPythonScript

Sub Trying()
Dim MyMacro As Object

	MyMacro=GetPythonScript("PythonScript/Inss.py/$Writing", "document")
	MyMacro.invoke(Array(), Array(), Array())

End Sub