Word Поймать событие активации документа

[Franck]

Тут с такой проблемой столкнулся, вроде простая, а решить не могу.
При работе с документами Word часто приходится работать с одноименными документами типа несколько открытых report.doc.
Чтобы их различать, решил повесить в заголовок окна полный путь к документу такой строчкой:

Код: Выделить всё

Application.Caption = ActiveDocument.Path

Нужно, чтобы это срабатывало при активации документа, а не при его открытии, т.е., чтобы в заголовке окна всегда висел полный путь к активному документу.
Проблема в том, что у объекта документ всего три события New Close Open, но они не годятся.
Попробовал повесить на событие WindowActivate, не получилось, не срабатывает:

Код: Выделить всё

Public WithEvents appWord As Word.Application

Private Sub appWord_WindowActivate _
        (ByVal Wn As Word.Window)
       Application.Caption = ActiveDocument.Path
End Sub

Естественно, повесил в сласс модуль.
Как можно решить проблему?

[GSerg]

Где-нибудь в другом событии set appWord = Application помести.

[Franck]

Где-нибудь в другом событии set appWord = Application помести.

Посместил просто в декларациях:

Код: Выделить всё

set appWord = Application

Говорит, неверная процедура.
Если не затруднит, подскажи пример, а то туплю.

[GSerg]

Декларация не есть какое-нибудь другое событие. Какое-нибудь другое событие есть, к примеру, _open() какого-нибудь документа. Или нажатие на кнопку, что в принципе предпочтительнее. Вешать макросы на кнопку умеем?