Propriedade MailMergeDataSource.Included (Word)

True se um registro é incluído em uma mala direta. Boolean de leitura/gravação.

Sintaxe

expression. Included

Expressão Uma expressão que retorna um objeto 'MailMergeDataSource'.

Comentários

Use o método SetAllIncludedFlags para incluir ou excluir todos os registros em uma fonte de dados de mala direta.

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 e o endereço será marcado como inválido.

Sub CheckRecords() 
 
 Dim intCount As Integer 
 
 On Error Resume Next 
 
 With ActiveDocument.MailMerge.DataSource 
 
 'Set the active record equal to the first included record 
 ' in the data source 
 .ActiveRecord = wdFirstRecord 
 Do 
 intCount = intCount + 1 
 
 'Set the condition that field six must be greater than 
 'or equal to five 
 If Len(.DataFields(6).Value) < 5 Then 
 
 'Exclude the record if field six is less than five 
 .Included = False 
 
 'Mark the record as containing an invalid address field 
 .InvalidAddress = True 
 
 'Specify the comment attached to the record 
 'explaining why the record was excluded 
 'from the mail merge 
 .InvalidComments = "The ZIP Code for this record " & _ 
 "has fewer than five digits. It will be removed " _ 
 & "from the mail merge process." 
 
 End If 
 
 'Move the record to the next record in the data source 
 .ActiveRecord = wdNextRecord 
 
 'End the loop when the counter variable equals the 
 'number of records in the data source 
 Loop Until intCount = .RecordCount 
 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.