Application.DocumentBeforeClose イベント (発行元)

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

構文

式。DocumentBeforeClose (doc, cancel)

expressionApplication オブジェクトを 表す変数。

パラメーター

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

注釈

Application オブジェクト イベントにアクセスするには、コード モジュールの General Declarations セクションで Application オブジェクト変数を宣言し、その変数をイベントにアクセスする Application オブジェクトと同じに設定します。

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

例

次の使用例は、文書を閉じる前に、ユーザーに [はい] または [いいえ] の応答を求めるメッセージを表示します。 この使用例が動作するためには、このコードをクラス モジュールに記述し、次の SetPubApp ルーチンのようなコードを使用して、クラスのインスタンスを正しく初期化する必要があります。

Private WithEvents PubApp As Application 
 
Sub SetPubApp() 
 Set PubApp = Publisher.Application 
End Sub 
 
Private Sub PubApp_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 のサポートおよびフィードバックを参照してください。

  • Last updated on