Evento Application.MailMergeDataSourceLoad (Word)

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" que se ha declarado con eventos en un módulo de clase. Para obtener información sobre el uso de eventos con el objeto Application , consulte Uso de eventos con el objeto Application.

Parameters

Ejemplo:

En este ejemplo, se muestra un mensaje con el nombre del archivo del origen de datos, al iniciar la carga del origen de datos. En este ejemplo, se supone que se ha declarado una variable de aplicación denominada MailMergeApp en las declaraciones generales y que se ha establecido la variable igual al objeto Application de Word.

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 file name 
 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

Vea también

Objeto Application

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.