次の方法で共有

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 のサポートおよびフィードバックを参照してください。