Evento Application.MailMergeBeforeMerge (Word)

Ocorre quando uma mesclagem é executada, antes de qualquer registro ser mesclado.

Sintaxe

expressão. MailMergeBeforeMerge (Doc, StartRecord, EndRecord, Cancel)

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.
StartRecord	Obrigatório	Long	O primeiro registro da fonte de dados a ser incluído na mala direta.
EndRecord	Obrigatório	Long	O último registro na fonte de dados a ser incluído na mala direta.
Cancel	Obrigatório	Boolean	True interrompe o processo de mala direta antes de seu início.

Exemplo

Este exemplo exibe uma mensagem antes de se iniciar o processo de mala direta, perguntando ao usuário se ele deseja continuar. Se o usuário clicar em Não, o processo será cancelado. 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 Microsoft Word.

Private Sub MailMergeApp_MailMergeBeforeMerge(ByVal Doc As Document, _ 
 ByVal StartRecord As Long, ByVal EndRecord As Long, _ 
 Cancel As Boolean) 
 
 Dim intVBAnswer As Integer 
 
 'Request whether the user wants to continue with the merge 
 intVBAnswer = MsgBox("Mail Merge for " & _ 
 Doc.Name & " is now starting. " & _ 
 "Do you want to continue?", vbYesNo, "MailMergeBeforeMerge Event") 
 
 'If users response to question is No, cancel the merge process 
 'and deliver a message to the user stating the merge is canceled 
 If intVBAnswer = vbNo Then 
 Cancel = True 
 MsgBox "You have canceled mail merge for " & _ 
 Doc.Name & "." 
 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.