Evento Application.MailMergeDataSourceLoad (Publisher)

Este evento se produce al cargar el origen de datos para una combinación de correspondencia.

Sintaxis

expresión. MailMergeDataSourceLoad (Doc)

expresión Variable que representa un objeto Application.

Parámetros

Comentarios

Para acceder a los eventos de objeto Application , declare una variable de objeto Application en la sección Declaraciones generales de un módulo de código y, a continuación, establezca la variable igual al objeto Application para el que desea tener acceso a los eventos.

Para obtener información sobre cómo usar eventos con el objeto Application de Microsoft Publisher, consulte Uso de eventos con el objeto Application.

Ejemplo:

En este ejemplo se muestra un mensaje con el nombre de archivo del origen de datos en el momento en que se empieza a cargar este último.

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

Para que este evento tenga lugar, debe colocar la siguiente línea de código en la sección Declaraciones generales del módulo y ejecutar la siguiente rutina de inicialización.

Private WithEvents MailMergeApp As Application 
 
Sub InitializeMailMergeApp() 
 Set MailMergeApp = Publisher.Application 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.