Список форумов Форум Libreoffice

Форум Libreoffice

Добро пожаловать на Форум Libreoffice!
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

English French German Italian Portuguese Russian Spanish
Выполнить макрос в другом файле с передачей аргументов

 
Начать новую тему   Ответить на тему    Список форумов Форум Libreoffice -> Basic
Предыдущая тема :: Следующая тема  
Автор Сообщение
neft



Репутация: 0    

Зарегистрирован: 19.10.2011
Сообщения: 28

СообщениеДобавлено: Пт Мар 23, 2012 8:44 am    Заголовок сообщения: Выполнить макрос в другом файле с передачей аргументов Ответить с цитатой

Задача такая: нужно из макроса Main1, находящегося в файле examples1.odt, выполнить макрос MainA(arguments), находящийся в файле examples2.odt, передав ему строку аргументов arguments:
examples2.odt
Код:
Sub MainA(arguments)
oDoc=ThisComponent
TKI=ThisComponent.getCurrentSelection().getByIndex(0)
TKS=TKI.String
VK = oDoc.getCurrentController().getViewCursor
VK.goLeft(Len(TKS)+1,0)
VKstr=VK.setString(arguments)
End Sub


Макрос Main1 из файла examples1.odt, вызывающий выполнение макроса MainA(arguments) в другом файле examples2.odt можно записать так:

examples1.odt
Код:
Sub Main1
s1="word1"
s2="string № 2"
n1="187.0089"
n2="98.3456"

delta=":"   ' Разделитель передаваемых аргументов,
         ' возможно использовать и другие символы
         ' например, пробел " " или "_" и т.д.

s1d=s1 & delta
s2d=s2 & delta
n1d=n1 & delta
n2d=n2 & delta

qqq=Chr(34) & s1d & n1d & s2d & n2d & Chr(34)

swr=Shell("soffice.exe", 0, "C:\401\examples2.odt macro://./Standard.Module1.MainA(" & qqq & ")", False)

End Sub


Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Форум Libreoffice -> Basic Часовой пояс: GMT
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group
Вы можете бесплатно создать форум на MyBB2.ru, RSS