Evento Application.MailMergeDataSourceLoad (Word)

Ocorre quando a fonte de dado é carregada para uma mala direta.

Sintaxe

expressão. MailMergeDataSourceLoad (Doc)

Expressão Uma variável que representa um objeto 'Application' que foi declarado com eventos em um módulo de classe. Para obter informações sobre como usar eventos com o objeto Application , consulte Usando eventos com o objeto Application.

Parâmetros

Exemplo

Este exemplo exibe uma mensagem com o nome de arquivo da fonte de dados quando se inicia o carregamento da fonte de dados. O exemplo pressupõe que você declarou uma variável do aplicativo chamada MailMergeApp nas declarações gerais e definiu a variável com um valor igual ao do objeto Application do 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

Confira também

Objeto de Aplicativo

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.