Question

Documents (Document) MailMerge MailMergeDataSource MailMergeDataFields (MailMergeDataField)

由 MailMergeDataField 对象所组成的集合，该集合中的对象代表邮件合并数据源中的数据域。

使用 MailMergeDataFields 集合

用 DataFields 属性可返回 MailMergeDataFields 集合。下列示例显示附加数据源中所有域的名称。

For Each afield In ActiveDocument.MailMerge.DataSource.DataFields
 MsgBox afield.Name
Next afield

不能在 MailMergeDataFields 集合中添加域。当在数据源中添加域时，该域将自动包含于 MailMergeDataFields 集合内。用 EditDataSource 方法可编辑数据源中的内容。下列示例为附加数据源中的一个表格添加名为“Author”的数据域。

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

用 DataFields (index) 可返回单个的 MailMergeDataField 对象，其中index是数据域名或索引序号。索引序号代表该数据域在邮件合并数据源中的位置。下列示例检索活动文档附加数据源中 FName 域的第一个值。

first = _
 ActiveDocument.MailMerge.DataSource.DataFields("FName").Value

下列示例显示活动文档的附加数据源中第一个域的名称。

MsgBox ActiveDocument.MailMerge.DataSource.DataFields(1).Name