Word) (Application.DocumentBeforeClose 事件

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

注意事項

如果您使用內嵌在另一份檔中的檔，就不會發生此事件。

語法

Private Sub 表達 式 'DocumentBeforeClose** (Doc As Document**， Cancel As Boolean)

表達 變數，表示以類別模組中的事件宣告的 Application 物件。

參數

名稱	必要/選用	資料類型	描述
Doc	必要	文件	正在關閉的文件。
Cancel	必要	布林值	False 事件發生時。 事件程序會將此引數設定為 True ，如果文件並不會關閉完成此程序。

註解

如需搭配 Application 物件使用 事件的詳細資訊，請參閱 搭配 Application 物件使用事件。

範例

這個範例會在列印任何文件之前，提示使用者確認是否要列印文件。 此程式碼必須放在類別模組中，而且必須正確初始化 類別的實例，才能讓此範例正常運作;如需如何完成此作業的指示，請參閱 搭配 Application 物件使用事件 。

Public WithEvents appWord as Word.Application 
 
Private Sub appWord_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 支援與意見反應。