次の方法で共有


Application.DocumentBeforeClose イベント (Word)

開いている文書が閉じる直前に発生します。

注:

別のドキュメントに埋め込まれたドキュメントを操作している場合、このイベントは発生しません。

構文

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

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

パラメーター

名前 必須 / オプション データ型 説明
Doc 必須 document 閉じられる文書です。
Cancel 必須 Boolean False イベントが発生します。 イベント プロシージャでこの引数に True を設定する場合、プロシージャが終了すると、文書は閉じられません。

注釈

Application オブジェクトでイベントを使用する方法の詳細については、「 Application オブジェクト でのイベントの使用」を参照してください。

次の使用例は、ドキュメントを閉じる前に、ユーザーに "はい" または "いいえ" の応答を求めます。 このコードはクラス モジュールに配置する必要があり、この例の動作を確認するには、 クラスのインスタンスを正しく初期化する必要があります。これを行う方法については、「 Application オブジェクトでのイベントの使用 」を参照してください。

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