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