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 auf, wenn ein Seriendruck ausgeführt wird, bevor Datensätze in diesen importiert wurden.
Syntax
Ausdruck. MailMergeBeforeMerge (Doc, StartRecord, EndRecord, Cancel)
expression Eine Variable, die ein Application-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Doc | Erforderlich | Document | Das Seriendruck-Hauptdokument. |
| StartRecord | Erforderlich | Long | Der erste Datensatz in der Datenquelle, der in den Seriendruck aufgenommen werden soll. |
| EndRecord | Erforderlich | Long | Der letzte Datensatz in der Datenquelle, der in den Seriendruck aufgenommen werden soll. |
| Cancel | Erforderlich | Boolean | Der Seriendruckvorgang wird vor dem Beginn beendet. |
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
This example displays a message before the mail merge process begins, asking the user if they want to continue. Wenn der Benutzer Nein auswähelt, wird der Zusammenführungsprozess abgebrochen.
Private Sub MailMergeApp_MailMergeBeforeMerge(ByVal Doc As Document, _
ByVal StartRecord As Long, ByVal EndRecord As Long, _
Cancel As Boolean)
Dim intVBAnswer As Integer
Set Doc = ActiveDocument
'Request whether the user wants to continue with the merge
intVBAnswer = MsgBox("Mail Merge for " & Doc.Name & _
" is now starting. Do you want to continue?", _
vbYesNo, "Event!")
'If user's response to question is No, then cancel merge process
'and deliver a message to the user stating the merge is canceled
If intVBAnswer = vbNo Then
Cancel = True
MsgBox "You have canceled mail merge for " & _
Doc.Name & "."
End If
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.