Шаблоны Word

[denisp]

Проблема в следующем. Я создал собственный шаблон документа и разместил его так, чтоб он загружался автоматически при запуске Word. Шаблон загружается все ок , но тут появилась следующая проблема. При открытии любого доумента мне необходимо производить определенное действия с ним. Я добавил в шаблон документа функцию на событие Open, но почему-то она не работает????

[tyomitch]

denisp, Document_Open реагирует только на открытие документа, созданного на этом шаблоне.
Лови Application_DocumentOpen

[denisp]

а как это правильно сделать?

[tyomitch]

а как это правильно сделать?

http://msdn.microsoft.com/library/en-us ... Events.asp

[denisp]

Что-то не получается.
Я Делалаю как написано в доке
Создал класс , объвил переменную, создал функцию из выподающего списка, далее создал модуль как написанно в примере , а после запустил на выполнение функцию, не чего не получилось.
да я все это делаю в своем шаблоне.

[LeoCh]

Я извиняюсь, но мне кажется это немного не то или я чего-то не понял. Меня вот тоже сильно интересует, как отловить открытие документа из чужого шаблона.

[denisp]

Вот из Normal.dot все получается хорошо, но из своего шаблона нет.

[tyomitch]

Всё работает.
Детальные инструкции:
1) добавьте класс; его имя по умолчанию будет Class1
добавьте в него код:

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

Public WithEvents App As Word.Application

Private Sub App_DocumentOpen(ByVal Doc As Document)
    StatusBar = "Âû îòêðûëè äîêóìåíò: " & Doc
End Sub


2) добавьте модуль; его имя по умолчанию будет Module1
добавьте в него код:

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

Dim X As New Class1

Sub AutoExec()
    Set X.App = Word.Application
End Sub


3) сохраните макрос, перезапустите Word. Всё работает.

[denisp]

Здорово! Все получилось!!!! Огромное спасибо.
Но самое интересное , что я делал так же.

[LeoCh]

Класс!
Но мне надо для Word 97

[denisp]

я поставлю office 97 и проверю работает мой шаблон в обед скажу