Событие Application.DocumentBeforeClose (издатель)

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

Синтаксис

выражение. DocumentBeforeClose (doc, cancel)

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

Параметры

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

Примечания

Чтобы получить доступ к событиям объекта Application , объявите переменную объекта Application в разделе General Declarations модуля кода, а затем установите переменную равной объекту Application , для которого вы хотите получить доступ к событиям.

Сведения об использовании событий с объектом приложения Microsoft Publisher см. в разделе Использование событий с объектом приложения.

Пример

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

Private WithEvents PubApp As Application 
 
Sub SetPubApp() 
 Set PubApp = Publisher.Application 
End Sub 
 
Private Sub PubApp_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean) 
 
 Dim intResponse As Integer 
 
 intResponse = MsgBox("Do you really want to close " _ 
 & "the document?", vbYesNo) 
 
 If intResponse = vbNo Then Cancel = True 
 
End Sub

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

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