Documents (Document)![]() ![]() ![]() ![]() ![]() ![]() |
由 MailMergeDataField 对象所组成的集合,该集合中的对象代表邮件合并数据源中的数据域。
用 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