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
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.