Freigeben über


Application.DocumentBeforeClose-Ereignis (Publisher)

Tritt unmittelbar vor dem Schließen eines Dokuments ein.

Syntax

Ausdruck. DocumentBeforeClose (Doc, Cancel)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Doc Erforderlich Document Das Dokument, das geschlossen wird.
Cancel Erforderlich Boolean False, Wenn das Ereignis auftritt. Wenn die Ereignisprozedur dieses Argument auf True festgelegt wird, wird das Dokument beim Beenden der Prozedur nicht geschlossen.

Hinweise

Um auf die Application-Objektereignisse zuzugreifen, deklarieren Sie eine Application-Objektvariable im Abschnitt Allgemeine Deklarationen eines Codemoduls, und legen Sie dann die Variable auf das Application-Objekt fest, für das Sie auf Ereignisse zugreifen möchten.

Informationen zur Verwendung von Ereignissen mit dem Microsoft Publisher-Anwendungsobjekt finden Sie unter Verwenden von Ereignissen mit dem Application-Objekt.

Beispiel

Dieses Beispiel fordert den Benutzer auf, vor dem Schließen eines Dokuments mit "Ja" oder "Nein" zu antworten. Damit dieses Beispiel funktioniert, muss dieser Code in einem Klassenmodul platziert werden, und ein instance der -Klasse muss ordnungsgemäß initialisiert werden, wobei ein Beispiel verwendet wird, das der folgenden SetPubApp-Routine ähnelt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.