共用方式為


Word) (Application.DocumentBeforeSave 事件

會在儲存任何開啟的文件之前發生。

語法

運算式DocumentBeforeSave (DocAs Document**, SaveAsUIAs BooleanCancelAs Boolean)

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

參數

名稱 必要/選用 資料類型 描述
Doc 必要 Document 正在儲存的文件。
SaveAsUI 必要 Boolean True 是表示 顯示 [ 另存新檔] 對話方塊時,是否要儲存新文件中,於 [ 儲存] 命令; 回應或於 [ 另存新檔] 命令中 ; 回應或以回應 SaveAsSaveAs2方法。
Cancel 必要 布林值 False 事件發生時。 如果事件程序會將此引數設定為 True ,完成此程序不儲存文件。

註解

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

範例

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

Public WithEvents appWord as Word.Application 
 
Private Sub appWord_DocumentBeforeSave _ 
 (ByVal Doc As Document, _ 
 SaveAsUI As Boolean, _ 
 Cancel As Boolean) 
 
 Dim intResponse As Integer 
 
 intResponse = MsgBox("Do you really want to " _ 
 & "save the document?", _ 
 vbYesNo) 
 
 If intResponse = vbNo Then Cancel = True 
End Sub

另請參閱

Application 物件

自動儲存

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應