Documents (Document)![]() ![]() ![]() ![]() ![]() ![]() |
由 MailMergeField 对象组成的集合,此集合代表文档中邮件合并相关域。
可用 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 集合还有其他的方法可用于添加与邮件合并操作相关的域,例如,AddAsk 和 AddFillIn。