Форум программистов, компьютерный форум, киберфорум
HCL Notes: Программирование
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/22: Рейтинг темы: голосов - 22, средняя оценка - 4.64
1 / 1 / 1
Регистрация: 22.12.2016
Сообщений: 23
1

Call app.run

19.05.2015, 07:13. Показов 4313. Ответов 7
Метки нет (Все метки)

Привет всем,
Подскажите как вызвать макрос(ms word) с параметрами в lotusscript ?


Код
 Set app = CreateObject("Word.Application")
app.Visible = True
app.Documents.Open("C:\test1.docx")

вызов макроса
Call app.Run("CompareDocument")
пробовал так:

Код
Call app.Run("CompareDocument("test1","test2")")

Код
Call app.Run("CompareDocument(test1,test2)")

Код
Call app.Run("CompareDocument,test1,test2")

Код
Call app.Run("CompareDocument(\"test1\",\"test2\")")
думаю все варианты ( мб что то пропустил подскажите плз.

Заранее спасибо!
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2015, 07:13
Ответы с готовыми решениями:

Wshshell.run Не Удается Дождаться Процесса
есть строки в агенте: Set WShell=CreateObject("WScript.Shell")...

Агент Run In Background Client Thread
Есть агент, который обрабатывает тучу документов по клику пользователя из представления. Эта туча...

Шедюльный агент с правами "run On Behalf Of Server/org"
привет всем что это означает? то есть любой юзер может создать некую базу на сервере и в...

Run Boot app from Jenkins
Хз в какой раздел спросить В общем суть такова Прошу дженкинса сделать так echo "mvn clean...

7
0 / 0 / 0
Регистрация: 07.02.2106
Сообщений: 812
19.05.2015, 07:57 2
откройте Word;
включите запись макросов;
произведите необходимые действия;
выключите запись макросов;
найдите записанный макрос и посмотрите что там написано;
перепишите макрос на LotusScript.
0
1 / 1 / 1
Регистрация: 22.12.2016
Сообщений: 23
19.05.2015, 09:58 3
Цитата Сообщение от garrick
перепишите макрос на LotusScript.
Хочу через LS передать местоположения документов, то есть file2 /
Переписал так:

Код
file2 = "C:\test2.docx"
Set app = CreateObject("Word.Application")
app.Visible = True
Call app.Run("CompareDocument("+file2+")")
в макросе


Код
Public Sub CompareDocument(file2 As Variant )
Dim file1 As Variant
file1 = "C:\test1.docx"

Documents.Open FileName:=file1
ActiveDocument.Compare Name:=file2, CompareTarget:=wdCompareTargetNew

End Sub
Если внутри ms word вызывать то так:

Код
Call NewMacros.CompareDocument(file2)
нооо... без результатно((((
хелп
0
0 / 0 / 0
Регистрация: 23.08.2008
Сообщений: 6,252
19.05.2015, 11:39 4
Цитата Сообщение от xpro
Если внутри ms word вызывать то так:
@xpro, сами-то видите различие? ;)
[URL="https://stackoverflow.com/questions/5227903/how-do-i-call-a-macro-function-in-a-global-template-add-in-from-another-template"]http://stackoverflow.com/questions/...-global-template-add-in-from-another-template[/NICK]
0
1 / 1 / 1
Регистрация: 22.12.2016
Сообщений: 23
19.05.2015, 11:50 5
Цитата Сообщение от lmike
@xpro, сами-то видите различие? ;)
[URL="https://stackoverflow.com/questions/5227903/how-do-i-call-a-macro-function-in-a-global-template-add-in-from-another-template"]http://stackoverflow.com/questions/...-global-template-add-in-from-another-template[/NICK]
вижу.. :happy: , но все равно параметры не принимает )))

пробовал так :

Код
Call app.Run("NewMacros.CompareDocument("+file2+")")
:banghead:


--- Добавлено 20 май 2015. Первое сообщение размещено 20 май 2015 ---

в VBA не могу вызвать функций с параметрами через LS :stena:
0
0 / 0 / 0
Регистрация: 13.10.2005
Сообщений: 848
19.05.2015, 11:55 6
Function Run(MacroName As String, [varg1], [varg2], [varg3], [varg4], [varg5], [varg6], [varg7], [varg8], [varg9], [varg10], [varg11], [varg12], [varg13], [varg14], [varg15], [varg16], [varg17], [varg18], [varg19], [varg20], [varg21], [varg22], [varg23], [varg24], [varg25], [varg26], [varg27], [varg28], [varg29], [varg30])

наталкивает на мысль?
0
0 / 0 / 0
Регистрация: 07.02.2106
Сообщений: 812
19.05.2015, 16:14 7
Вот как-то так должно быть.


Код
Set app = CreateObject("Word.Application")
app.Visible = True
file1 = "C:\test1.docx"
file2 = "C:\test2.docx"
call app.Documents.Open(file1)
call app.ActiveDocument.Compare(file2, 2)
Запускать не пробовал, но принцип преобразования VBA-LotusScript должен быть понятен.
0
1 / 1 / 1
Регистрация: 22.12.2016
Сообщений: 23
20.05.2015, 05:50 8
Цитата Сообщение от garrick
Вот как-то так должно быть.


Код
Set app = CreateObject("Word.Application")
app.Visible = True
file1 = "C:\test1.docx"
file2 = "C:\test2.docx"
call app.Documents.Open(file1)
call app.ActiveDocument.Compare(file2, 2)
Запускать не пробовал, но принцип преобразования VBA-LotusScript должен быть понятен.
Работает :applause::applause::applause::bravo: Спасибо.

Код
Set app = CreateObject("Word.Application")
app.Visible = True
file1 = "C:\test1.docx"
file2 = "C:\test2.docx"
Call app.Documents.Open(file1)
Call app.ActiveDocuments.Compare(file2, file1)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2015, 05:50

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Почему в Yii может не отрабатываться $app->run(); ?
Добрый вечер! У меня такая проблема, закинул на хостинг сайт ыышный, и первый раз столкнулся с...

Run time error '5' invalid procedure call or argument
Option Explicit Sub Reshenie() Const e = 2.71828182846 Dim y As Double, A As Double, B As Double...

Ошибка: Run-time error '5', Invalid procedure call or argument
Вообщем сделал программу всё работала пока не дописал выражение до конца и тут бах ошибочка. Вот...

Функция Replace приводит к ошибке Run-time error ‘5’: Invalid procedure call or argument.
Прошу, подскажите в чем ошибка и как быть в следующей ситуации: Сбрасываю содержимое поля типа...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.