Propriedade MailMergeDataSource.InvalidComments (Word)

Se a propriedade InvalidAddress for True, retorna ou define uma cadeia de caracteres que descreve um erro de endereço inválido. Leitura/gravação.

Sintaxe

expression. InvalidComments

Expressão Uma variável que representa um objeto 'MailMergeDataSource'.

Comentários

Use o método SetAllErrorFlags para definir as propriedades InvalidAddress e InvalidComments para todos os registros em uma fonte de dados.

Exemplo

Este exemplo faz um loop pelos registros na fonte de dados de mala direta e verifica se o campo de código de CEP (neste caso, o campo número seis) contém menos de cinco dígitos. Se um registro tiver um código de CEP com menos de cinco dígitos, o registro será excluído da mala direta, o endereço será marcado como inválido e aparecerá um comentário indicando o motivo pelo qual o registro foi excluído.

Sub ExcludeRecords() 
 
 Dim intCount As Integer 
 
 On Error Resume Next 
 
 With ActiveDocument.MailMerge.DataSource 
 .ActiveRecord = wdFirstRecord 
 Do 
 intCount = intCount + 1 
 'Counts the number of digits in the postal code field and if 
 'it is fewer than 5, the record is excluded from the mail merge, 
 'marked as having an invalid address, and given a comment 
 'describing why the postal code was removed 
 If Len(.DataFields(6).Value) < 5 Then 
 .Included = False 
 .InvalidAddress = True 
 .InvalidComments = "The ZIP Code for this record" & _ 
 "has fewer than five digits. It will be" & _ 
 "removed from the mail merge process." 
 End If 
 
 .ActiveRecord = wdNextRecord 
 Loop Until intCount >= .ActiveRecord 
 End With 
 
End Sub

Confira também

Objeto MailMergeDataSource

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.