Evento Application.MailMergeAfterMerge (Word)

Ocorre depois que todos os registros de uma mala direta são mesclados com sucesso.

Sintaxe

expressão. MailMergeAfterMerge (Doc, DocResult)

expressão Uma variável que representa um Aplicativo objeto.

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.
DocResult	Obrigatório	Document	O documento criado a partir da mala direta

Exemplo

Este exemplo exibe uma mensagem afirmando que todos os registros do documento especificado tiveram sua mesclagem concluída. Se o documento tiver sido mesclado a um segundo documento, a mensagem incluirá o nome do novo documento. Este 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_MailMergeAfterMerge(ByVal Doc As Document, _ 
 ByVal DocResult As Document) 
 If DocResult Is Nothing Then 
 MsgBox "Your mail merge on " & _ 
 Doc.Name & " is now finished." 
 
 Else 
 MsgBox "Your mail merge on " & _ 
 Doc.Name & " is now finished and " & _ 
 DocResult.Name & " has been created." 
 End If 
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.