次の方法で共有


Application.DocumentBeforeSave イベント (Word)

開いている文書が保存される前に発生します。

構文

DocumentBeforeSave (DocAs Document**, SaveAsUIAs Boolean, CancelAs Boolean)

クラス モジュール内のイベントで宣言された 'Application' オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Doc 必須 Document 保存される文書です。
SaveAsUI 必須 ブール型 (Boolean) True の 場合は、[名前を 付けて保存] ダイアログ ボックスが表示されると、 保存コマンドへの応答で、新しいドキュメントを保存するかどうかまたは 名前を付けて保存コマンドへの応答または SaveAsまたは SaveAs2メソッドに応答します。
Cancel 必須 Boolean 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 のサポートおよびフィードバックを参照してください。