MailMergeDataSourceLoad Event

Private Sub object_MailMergeDataSourceLoad(ByVal Doc As Document)

object    An object of type Application declared with events in a class module. For information about using events with the Application object, see Using Events with the Application Object.

Doc    The mail merge main document.

Example

This example displays a message with the data source file name when the data source starts loading. This example assumes that you have declared an application variable called MailMergeApp in your general declarations and have set the variable equal to the Word Application object.

Private Sub MailMergeApp_MailMergeDataSourceLoad(ByVal Doc As Document)
    Dim strDSName As String
    Dim intDSLength As Integer
    Dim intDSStart As Integer

    'Extract from the Name property only the filename
    intDSLength = Len(Doc.MailMerge.DataSource.Name)
    intDSStart = InStrRev(Doc.MailMerge.DataSource.Name, "\")
    intDSStart = intDSLength - intDSStart
    strDSName = Right(Doc.MailMerge.DataSource.Name, intDSStart)

    'Deliver a message to user when data source is loading
    MsgBox "Your data source, " & strDSName & ", is now loading."
End Sub