Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Uma coleção de objetos MailMergeDataField que representa os campos de dados em uma fonte de dados de mala direta.
Comentários
Use a propriedade DataFields para retornar a coleção MailMergeDataFields. O exemplo a seguir exibe os nomes de todos os campos na fonte de dados anexada.
For Each afield In ActiveDocument.MailMerge.DataSource.DataFields
MsgBox afield.Name
Next afield
Você não pode adicionar campos à coleção MailMergeDataFields. Quando um campo de dados é adicionado a uma fonte de dados, o campo é incluído automaticamente na coleção MailMergeDataFields. Use o método EditDataSource para editar o conteúdo de uma fonte de dados. O exemplo a seguir adiciona um campo de dados chamado "Autor" a uma tabela na fonte de dados anexada.
If ActiveDocument.MailMerge.DataSource.Type = _
wdMergeInfoFromWord Then
ActiveDocument.MailMerge.EditDataSource
With ActiveDocument.Tables(1)
.Columns.Add
.Cell(Row:=1, Column:=.Columns.Count).Range.Text = "Author"
End With
End If
Use DataFields (Index), onde Index é o nome do campo de dados ou o número de índice, para retornar um único objeto MailMergeDataField. O número de índice representa a posição do campo de dados na fonte de dados de mala direta. O exemplo a seguir recupera o primeiro valor do campo nome da fonte de dados anexada ao documento ativo.
first = ActiveDocument.MailMerge _
.DataSource.DataFields("FName").Value
O exemplo a seguir exibe o nome do primeiro campo de dados na fonte de dados anexada ao documento ativo.
MsgBox ActiveDocument.MailMerge.DataSource.DataFields(1).Name
Confira também
Referência do modelo de objeto do Word
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.