次の方法で共有


Application.DocumentBeforeClose イベント (Publisher)

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

構文

DocumentBeforeClose (Doc,Cancel)

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

パラメーター

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

注釈

Application オブジェクト イベントにアクセスするには、コード モジュールの [全般宣言] セクションで 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 のサポートおよびフィードバックを参照してください。