Application.MailMergeBeforeRecordMerge-Ereignis (Publisher)

Tritt auf, wenn ein Import für die einzelnen Datensätze in einem Seriendruck vorgenommen wird.

Syntax

Ausdruck verwendet werden. MailMergeBeforeRecordMerge (Doc, Cancel)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Hinweise

Um auf die Anwendungsobjektereignisse zuzugreifen, deklarieren Sie eine Anwendungsobjektvariable im Abschnitt Allgemeine Deklarationen eines Codemoduls und setzen Sie dann die Variable auf das Anwendungsobjekt, für das Sie auf Ereignisse zugreifen möchten.

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

Beispiel

Dieses Beispiel überprüft, ob die Länge der Postleitzahl (in diesem Beispiel die Feldnummer sechs) kleiner als fünf ist, und bricht andernfalls den Seriendruck nur für diesen Datensatz ab.

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.