Application.MailMergeBeforeRecordMerge-Ereignis (Publisher)
Tritt auf, wenn ein Import für die einzelnen Datensätze in einem Seriendruck vorgenommen wird.
Syntax
Ausdruck. MailMergeBeforeRecordMerge (Doc, Cancel)
expression Eine Variable, die ein Application-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Doc | Erforderlich | Document | Das Seriendruck-Hauptdokument. |
| Cancel | Erforderlich | Boolean | Der Seriendruckvorgang wird nur für den aktuellen Datensatz vor 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
In diesem Beispiel wird überprüft, ob die Länge der Postleitzahl (die in diesem Beispiel Feld Nummer sechs ist) kleiner als fünf ist. Wenn dies der Fall ist, wird die Zusammenführung nur für diesen Datensatz abgebrochen.
Private Sub MailMergeApp_MailMergeBeforeRecordMerge(ByVal _
Doc As Document, Cancel As Boolean)
Dim intZipLength As Integer
intZipLength = Len(ActiveDocument.MailMerge _
.DataSource.DataFields(6).Value)
'Cancel merge of this record only if
'the ZIP Code has fewer than five digits
If intZipLength < 5 Then
Cancel = True
End If
End Sub
Damit dieses Ereignis eintritt, müssen Sie folgende Codezeile im allgemeinen Deklarationsbereich des Moduls platzieren und folgende Initialisierungsroutine ausführen:
Private WithEvents MailMergeApp As Application
Sub InitializeMailMergeApp()
Set MailMergeApp = Publisher.Application
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.