Evento Application.MailMergeBeforeRecordMerge (Word)
Ocorre à medida que é executada uma mesclagem dos registros individuais de uma mala direta.
Sintaxe
expressão. MailMergeBeforeRecordMerge (Doc, 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. |
| Cancel | Obrigatório | Boolean | True interrompe o processo de mala direta, para o registro atual somente antes de seu início. |
Exemplo
Este exemplo verifica se o comprimento do código postal, que neste exemplo é o campo número seis, é menor que cinco dígitos e, se for, cancela a mesclagem apenas para esse registro. O exemplo pressupõe que você declarou uma variável do aplicativo chamada MailMergeApp nas declarações gerais e definiu a variável como um valor igual ao do objeto Application do Microsoft Word.
Private Sub MailMergeApp_MailMergeBeforeRecordMerge(ByVal _
Doc As Document, Cancel As Boolean)
Dim intZipLength As Integer
intZipLength = Len(ActiveDocument.MailMerge _
.DataSource.DataFields(6).Value)
'Cancel merge of this record only if
'the ZIP Code is fewer than five digits
If intZipLength < 5 Then
Cancel = True
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.