Серый форум — VBS: Word - как добавлять обработчики событий?

Re: VBS: Word - как добавлять обработчики событий?

2015-05-31T15:49:26Z

Почти не разбираюсь в Office/VBA, поэтому не утверждаю, что предложенное решение наиболее грамотное, но вполне рабочее. Для ожидания закрытия документа можно в цикле с задержкой (в HTA можно использовать window.setInterval()) проверять доступность какого-либо из свойств документа:

Set MSWordDoc = WScript.CreateObject("Word.Document")
MSWordDoc.Application.Visible = True
On Error Resume Next
Do
    IsEmpty MSWordDoc.Name
    If Err.Number Then
        MsgBox "Closed"
        WScript.Quit
    End If
    WScript.Sleep 1
Loop

— использование именно функции IsEmpty(), вызываемой как процедура, здесь не существенно — вместо неё можно было использовать VarType(), UCase() и многие другие, или просто присваивать значение свойства переменной (но для этого, о ужас, понадобилось бы вводить дополнительную переменную). Можно было бы также воспользоваться тем, что TypeName(MSWordDoc) при закрытии документа меняет значение с "Document" на "Object".

Re: VBS: Word - как добавлять обработчики событий?

2011-01-31T08:56:32Z

LeshikSan, код на форуме оформляется тэгом «code», а не тэгом «i». Исправьте.

Re: VBS: Word - как добавлять обработчики событий?

2011-01-31T08:21:10Z

Do: WScript.Sleep 1: Loop

Ну я и фрося
wisgest, а как тоже самое сделать для документа?
Такой код уже не работает:

Set MSWordDoc = WScript.CreateObject("Word.Document", "MSWordDoc_")
MSWordDoc.Application.Visible = True
Sub MSWordDoc_Close
 MsgBox "Close"
 WScript.Quit
End Sub
Do: WScript.Sleep 1: Loop

Re: VBS: Word - как добавлять обработчики событий?

2011-01-29T16:12:37Z

Однако, работает:

Set MSWord = WScript.CreateObject("Word.Application", "MSWord_")
MSWord.Visible = True
Sub MSWord_Quit
   MsgBox "Quit"
   WScript.Quit
End Sub

'WScript.Sleep &H7FFFFFFF
Do: WScript.Sleep 1: Loop

(Интересно, что если раскомментировать предпоследнюю строку, то WScript.Quit не прерывает WScript.Sleep и процесс WScript.exe не завершается.)

Re: VBS: Word - как добавлять обработчики событий?

2011-01-28T18:18:26Z

chessman, спасибо за ссылку!
Вот только пример не работает...

Set MSWord = WScript.CreateObject("Word.Application", "MSWord_")
MSWord.Visible = True
Sub MSWord_Quit
   MsgBox "Quit"
End Sub

Re: VBS: Word - как добавлять обработчики событий?

2011-01-28T14:58:22Z

А это не поможет? http://www.rsdn.ru/article/com/eventsinscript.xml

Re: VBS: Word - как добавлять обработчики событий?

2011-01-26T16:22:02Z

Запускаю из-под HTA, хочу немножко доработать этот скрипт.
Боюсь, что DynamicWrapperX будет тяжеловат для моей пустяшной задачи

Re: VBS: Word - как добавлять обработчики событий?

2011-01-26T15:27:44Z

Кстати, а откуда ты vbs запускаешь?

Re: VBS: Word - как добавлять обработчики событий?

2011-01-26T15:15:20Z

Если готов использовать DynamicWrapperX + мои исправления к нему, то могу код показать.
Только кода там прилично, т.к. приходится анализировать библиотеку типов, искать интерфейс по-умолчанию, реализовывать свой IDispatch...и все это на VBScript

Re: VBS: Word - как добавлять обработчики событий?

2011-01-26T14:29:45Z

Ну я создаю экземпляр через CreateObject("Word.Application"), в нем создаю документ
Или получаю уже открытый через GetObject(,"Word.Application")

Re: VBS: Word - как добавлять обработчики событий?

2011-01-26T11:55:34Z

У тебя Word будет открыт в ActiveX'e?

VBS: Word - как добавлять обработчики событий?

2011-01-26T09:32:46Z

Нужно добавить обработчики на такие события как Open, Close, Save
Везде примеры для макросов, а для VBS ничего нет