共用方式為


Application.DocumentBeforeClose 事件 (Word)

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

注意事項

如果你是將文件嵌入另一份文件中,這種情況不會發生。

語法

Private Sub expression 'DocumentBeforeClose** (Doc as Document**, Cancel as Boolean)

一個代表在類別模組中宣告事件的 應用程式 物件的變數。

參數

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

註解

欲了解更多關於在應用程式物件中使用事件的資訊,請參見使用事件與應用程式物件。

範例

這個範例會在列印任何文件之前,提示使用者確認是否要列印文件。 此程式碼必須置於類別模組中,且類別的實例必須正確初始化,才能讓此範例運作;請參閱 「使用事件搭配應用程式物件 」來了解如何達成此目標。

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 支援與意見反應