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

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

null@example.com (wisgest) — Sun, 31 May 2015 15:49:26 +0000

Почти не разбираюсь в 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 - как добавлять обработчики событий?

null@example.com (alexii) — Mon, 31 Jan 2011 08:56:32 +0000

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

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

null@example.com (LeshikSan) — Mon, 31 Jan 2011 08:21:10 +0000

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 - как добавлять обработчики событий?

null@example.com (wisgest) — Sat, 29 Jan 2011 16:12:37 +0000

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

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 - как добавлять обработчики событий?

null@example.com (LeshikSan) — Fri, 28 Jan 2011 18:18:26 +0000

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

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

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

null@example.com (chessman) — Fri, 28 Jan 2011 14:58:22 +0000

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

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

null@example.com (LeshikSan) — Wed, 26 Jan 2011 16:22:02 +0000

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

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

null@example.com (chessman) — Wed, 26 Jan 2011 15:27:44 +0000

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

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

null@example.com (chessman) — Wed, 26 Jan 2011 15:15:20 +0000

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

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

null@example.com (LeshikSan) — Wed, 26 Jan 2011 14:29:45 +0000

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

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

null@example.com (chessman) — Wed, 26 Jan 2011 11:55:34 +0000

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

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

null@example.com (LeshikSan) — Wed, 26 Jan 2011 09:32:46 +0000

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