Application.DocumentBeforeClose 事件 (Publisher)

會在任何開啟的文件關閉之前立即發生。

語法

運算式。DocumentBeforeClose (檔、 取消)

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Doc	必要	Document	正要關閉的文件。
Cancel	必要	布林值	False 事件發生時。 事件程序會將此引數設定為 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 支援與意見反應。