Событие Application.DocumentBeforeSave (Word)

Происходит до сохранения любого открытого документа.

Синтаксис

выражение. DocumentBeforeSave (DocAs Document**, SaveAsUIAs Boolean, CancelAs Boolean)

выражение Переменная, представляющая объект 'Application', объявленный с событиями в модуле класса.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Док	Обязательный	Document	Сохраняемый документ.
SaveAsUI	Обязательный	Boolean	Значение True , если отображается диалоговое окно "Сохранить как ", сохранять ли новый документ в ответ на команду "Сохранить "; или в ответ на команду "Сохранить как "; или в ответ на метод SaveAs или SaveAs2 .
Отмена	Обязательный	Boolean	При возникновении события значение false. Если процедура обработки событий устанавливает для этого аргумента значение True, документ не сохраняется после завершения процедуры.

Примечания

Дополнительные сведения об использовании событий с объектом Application см. в статье Использование событий с объектом Application.

Пример

В этом примере пользователю предлагается ответить "да" или "нет" перед сохранением любого документа. Этот код должен быть помещен в модуль класса, а экземпляр класса должен быть правильно инициализирован, чтобы увидеть работу этого примера; инструкции по выполнению этой операции см. в разделе Использование событий с объектом Application .

Public WithEvents appWord as Word.Application 
 
Private Sub appWord_DocumentBeforeSave _ 
 (ByVal Doc As Document, _ 
 SaveAsUI As Boolean, _ 
 Cancel As Boolean) 
 
 Dim intResponse As Integer 
 
 intResponse = MsgBox("Do you really want to " _ 
 & "save the document?", _ 
 vbYesNo) 
 
 If intResponse = vbNo Then Cancel = True 
End Sub

См. также

Объект Application

Автосохранение

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.