Application.MailMergeBeforeMerge-Ereignis (Publisher)
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.