Partilhar via


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

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.