Вызов процедуры документа из библиотеки приложения

[Tillevion]

В макросе, содержащемся в библиотеке приложения есть необходимость обратиться к библиотеке, содержащейся в текущем документе. Как это можно сделать?

Код Выделить Развернуть

Sub Sub_App
 BasicLibraries.LoadLibrary("Macro")
 Sub_Doc
End Sub

Код в данном случае не работает

[rami]

Пробуйте так:

Код Выделить Развернуть

Sub Sub_App Dim scriptUri$, scriptProvider, script
'если нужно заменить Standard.Module1.Sub_Doc на ваше имя библиотеки.модуля.макроса
scriptUri="vnd.sun.star.script:Standard.Module1.Sub_Doc?language=Basic&location=document"
scriptProvider=ThisComponent.ScriptProvider
script=scriptProvider.getScript(scriptUri)
script.invoke(array(),array(),array())
End Sub

Если нужно заменить Standard.Module1.Sub_Doc на ваше имя библиотеки.модуля.макроса

[Tillevion]

Спасибо! Работает