Application.DocumentBeforeClose 事件 (Publisher)

在打开的文档即将关闭之前发生。

语法

表达式。DocumentBeforeClose (Doc， 取消)

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Doc	必需	Document	正在关闭的文档。
Cancel	必需	Boolean	假 的事件发生时。 如果事件过程将此参数设置为 True ，则过程完成后不关闭文档。

备注

若要访问 Application 对象事件，请在代码模块的“常规声明”部分中声明 Application 对象变量 ，然后将该变量设置为要访问其事件的 Application 对象。

有关对 Microsoft Publisher Application 对象使用事件的信息，请参阅 对 Application 对象使用事件。

示例

本示例在关闭文档之前，提示用户答复"是"或"否"。 为了使本示例能正常运行，必须将以下代码置于一个类模块中，而该类的实例必须使用类似以下 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。