MailMergeFields 集合对象

         
Documents (Document)
MailMerge
MailMergeFields (MailMergeField)
Range

MailMergeField 对象组成的集合,此集合代表文档中邮件合并相关域。

使用 MailMergeFields 集合

可用 Fields 属性返回 MailMergeFields 集合。下列示例在活动文档中将一个 ASK 域添加在最后一个邮件合并域之后。

Set myMMFields = ActiveDocument.MailMerge.Fields
myMMFields(myMMFields.Count).Select
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdMove
ActiveDocument.MailMerge.Fields.AddAsk Range:=Selection.Range, _
    Name:="Name", Prompt:="Type your name", AskOnce:=True

可用 Add 方法在 MailMergeFields 集合中添加一个邮件合并域。下列示例将选定内容替换为一个 MiddleInitial 合并域。

ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, _
    Name:="MiddleInitial"

Fields (index) 返回单独的 MailMergeField 对象,其中 index 为索引号。下列示例显示了活动文档中第一个邮件合并域的域代码。

MsgBox ActiveDocument.MailMerge.Fields(1).Code

说明

MailMergeFields 集合还有其他的方法可用于添加与邮件合并操作相关的域,例如,AddAskAddFillIn