Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

17 Август 2018, 01:20 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Вы можете задать вопрос по LibreOffice или Apache OpenOffice  без регистрации, используя форму
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Вызов процедуры документа из библиотеки приложения  (Прочитано 268 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Tillevion
Новичок
*
Offline Offline

Сообщений: 17


« Стартовое сообщение: 24 Апрель 2018, 23:56 »

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

Код:
Sub Sub_App
  BasicLibraries.LoadLibrary("Macro")
  Sub_Doc
End Sub

Код в данном случае не работает
Записан
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 2 504


MacBook Pro, LibreOffice и Apache OpenOffice


« Ответ #1: 25 Апрель 2018, 08:37 »

Пробуйте так:
Код:
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
Новичок
*
Offline Offline

Сообщений: 17


« Ответ #2: 25 Апрель 2018, 16:16 »

Спасибо! Работает
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!