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

Автор Tillevion, 24 апреля 2018, 23:56

0 Пользователи и 1 гость просматривают эту тему.

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