Evento Application.MailMergeBeforeMerge (Publisher)
Ocorre quando uma mesclagem é executada antes que quaisquer registros em uma mala direta tenham sido mesclados.
Sintaxe
expressão. MailMergeBeforeMerge (Doc, StartRecord, EndRecord, Cancel)
expressão Uma variável que representa um Aplicativo objeto.
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 | Interrompe o processo de mala direta antes de iniciar. |
Comentários
Para acessar os eventos do objeto Application , declare uma variável de objeto Application na seção Declarações Gerais de um módulo de código e defina a variável igual ao objeto Application para o qual você deseja acessar eventos.
Para obter informações sobre como usar eventos com o objeto Aplicativo do Microsoft Publisher, consulte Usando eventos com o objeto Application.
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 escolher Não, o processo de mesclagem será cancelado.
Private Sub MailMergeApp_MailMergeBeforeMerge(ByVal Doc As Document, _
ByVal StartRecord As Long, ByVal EndRecord As Long, _
Cancel As Boolean)
Dim intVBAnswer As Integer
Set Doc = ActiveDocument
'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, "Event!")
'If user's response to question is No, then cancel 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
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.