Как сделать, чтобы макрос запускался автоматически

[alltut]

Есть такая прога


Sub qqq()


If MsgBox("Перерыв - Отдохните", vbOKCancel) = vbOK Then



Application.OnTime Now + TimeValue("00:00:01"), "qqq"
End If


Application.OnTime Now + TimeValue("00:00:01"), "qqq"

End Sub

Как сделать его, так, чтобы он автоматически запускался при открытии MS Word

[amda]

открываешь в ворде Normal.dot (обычно находится в каталоге "Шаблоны"). Открываешь в редакторе VBA модуль для ThisDocument и создаёшь процедуру

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

Private Sub Document_New()
Call qqq
End Sub


Так процедура будет запускаться каждый раз, когда будешь создавать новый файл в ворде. Чтоб такого не было, можно объявить булеву глобальную переменную, в которой будешь отмечать первое открытие. А потом перед запуском своей процедурой проверяй ту переменную

[Vitaly1]

Можно и без Call, зачем его в VB использовать

Если следущие событийные процедуры вставить в Normal то:

это будет запускатся при каждом созданном новом документе

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

Private Sub Document_New()
qqq
End Sub

это будет запускатся при каждом новом открытом документе

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

Private Sub Document_Open()
qqq
End Sub

нужно имя макросу дать особенное, какое я сейчас не помню, найду, напишу

[Vitaly1]

Надо макрос назвать Main. Но в 2000 офисе у меня почемуто не получилось, если не получится, пиши в Normal :

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

Private flag as boolean

Private Sub Document_New()
if flag = false then
qqq
flag = true
end if
End Sub