會在任何開啟的文件關閉之前立即發生。
注意事項
如果你是將文件嵌入另一份文件中,這種情況不會發生。
語法
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 支援與意見反應。