Application.MailMergeDataSourceLoad-Ereignis (Publisher)

Artikel
10/16/2024

Tritt auf, wenn die Datenquelle für einen Seriendruck geladen wird.

Syntax

Ausdruck. MailMergeDataSourceLoad (Dokumentation)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

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

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 zu Beginn des Ladens der Datenquelle eine Meldung angezeigt, die den Dateinamen der Datenquelle enthält.

Private Sub MailMergeApp_MailMergeDataSourceLoad(ByVal Doc As Document) 
 Dim strDSName As String 
 Dim intDSLength As Integer 
 Dim intDSStart As Integer 
 
 'Pull out of the Name property (which includes path and file name) 
 'only the file name using Visual Basic commands Len, InStrRev, and Right 
 intDSLength = Len(ActiveDocument.MailMerge.DataSource.Name) 
 intDSStart = InStrRev(ActiveDocument.MailMerge.DataSource.Name, "\") 
 intDSStart = intDSLength - intDSStart 
 strDSName = Right(ActiveDocument.MailMerge.DataSource.Name, intDSStart) 
 
 'Deliver a message to user when data source is loading 
 MsgBox "Your data source, " & strDSName & ", is now loading." 
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.

Freigeben über