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
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Doc | Obrigatório | Document | O documento principal de mala direta. |
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
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.