Classe MailMergeDataField (Word VBA)

A classe MailMergeDataField representa um único campo de mala direta em uma fonte de dados. O objeto MailMergeDataField é um membro da coleção MailMergeDataFields. A coleção MailMergeDataFields inclui todos os campos de dados de uma fonte de dados de mala direta (por exemplo, Nome, Endereço e Cidade). Para usar uma variável de classe MailMergeDataField, ela primeiro precisa ser instanciada por exemplo

Dim mmd as MailMergeDataField
Set mmd = ActiveDocument.MailMerge.DataSource.DataFields(Index:=1)

For Each

Aqui está um exemplo de processamento dos itens MailMergeDataField em uma coleção.

Dim mmdDataField As MailMergeDataField
For Each mmdDataField In ActiveDocument.MailMerge.DataSource.DataFields
	
Next mmdDataField

Index

Retorna um Long que representa a posição de um item em uma coleção. Somente leitura.

Dim lngIndex As Long
lngIndex = ActiveDocument.MailMerge.DataSource.DataFields(1).Index

Name

Retorna o nome do objeto especificado. Cadeia de caracteressomente leitura.

Dim strName As String
strName = ActiveDocument.MailMerge.DataSource.DataFields(1).Name

Value

Retorna o conteúdo do campo de dados de mala direta ou campo de dados mapeado para o registro atual. Cadeia de caracteressomente leitura.

Use a propriedade ActiveRecord para definir o registro ativo em uma fonte de dados de mala direta.

For Each dataF In _ 
 Documents("Main.doc").MailMerge.DataSource.DataFields 
 If dataF.Value <> "" Then dRecord = dRecord & _ 
 dataF.Value & vbCr 
Next dataF 
MsgBox dRecord