Word VBA教程:MailMergeDataFields集合对象

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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号