Private WithEvents iWordApp As Word.Application
Private Sub Document_Open()
Set iWordApp = Word.Application
End Sub
Private Sub iWordApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
If Me Is Doc Then 'ThisDocument Is Doc
Cancel = MsgBox( _
"Сохранить [ Да ], Отказаться [ Нет ]", vbYesNo, _
"Предпринята попытка сохранить необходимый документ") = vbNo
'Вышеприведённая инструкция используется для того, чтобы
'показать возможность отмены сохранения : Cancel = True
End If
End Sub
WORD ПЕрехват события сохранения документа
Нужно перехватить событие сохранение пользователем документа, дабы проверить правильность введения данных в поля формы. Как?
Начиная с MS Word 2000 это можно сделать так : скопировать весь нижеопубликованный код в модуль ThisDocument нужного документа, после чего необходимо сохранить изменения. Теперь, если у Вас не установлен высокий уровень безопасности и при открытии никто не отключит макросы, то после следующего открытия этого документа (событие Document_Open), Вы получите желаемый результат.
Возможно Вам это и не пригодится, но всё-таки … формы позволяют выполнять нужный макрос, причём, сразу после внесения изменений.
Код:
Возможно Вам это и не пригодится, но всё-таки … формы позволяют выполнять нужный макрос, причём, сразу после внесения изменений.