Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
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.