IMHO.WS

IMHO.WS (https://www.imho.ws/index.php)
-   Программирование (https://www.imho.ws/forumdisplay.php?f=40)
-   -   Автостарт макроса (https://www.imho.ws/showthread.php?t=96818)

vuk 30.11.2005 16:08

Автостарт макроса
 
Есть огромное количество документов MSWord (*.doc) в которых введена устаревшая информация наряду с полезной, каждый раз при использовании таких файлов приходится вручную исправлять то, что уже не актуально. Выход - автоматизировать.
Пишем макрос, вставляем его в Normal.dot, теперь его возможно запустить независимо от того, какой докумунт открыт, но открыв файл постоянно лезть свойства\макрос\запустить не менее трудоемко.

Вопрос: каким образом заставить автоматически запуститься макрос при открытии любого документа?

LightImage 01.12.2005 12:19

В Normal.dot в модуле объекта ThisDocument пишем функцию
Код:

Private Sub Document_Open()
Dim msg As String
    msg = "Открытие документа с именем " & ActiveDocument.FullName
    MsgBox msg, vbInformation, "Тест"
End Sub



Часовой пояс GMT +4, время: 12:31.

Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.