Application.MailMergeAfterRecordMerge-Ereignis (Publisher)

Tritt auf, nachdem jeder Datensatz in der Datenquelle erfolgreich in einen Seriendruck importiert wurde.

Syntax

Ausdruck. MailMergeAfterRecordMerge (Doc)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Doc	Erforderlich	Document	Das Seriendruck-Hauptdokument.

Hinweise

Wenn Sie eine Kundenverwaltungs-Datenbank verwalten, können Sie das MailMergeAfterRecordMerge -Ereignis verwenden, um die Datenbank für jeden importierten Datensatz zu aktualisieren.

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 eine Meldung angezeigt, die den Wert des ersten und des zweiten Felds in dem gerade importierten Datensatz enthält.

Private Sub MailMergeApp_MailMergeAfterRecordMerge(ByVal Doc As Document) 
 
 With ActiveDocument.MailMerge.DataSource 
 MsgBox .DataFields.Item(3).Value & " " & _ 
 .DataFields.Item(2).Value & " is finished merging." 
 End With 
 
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.