Question

向邮件合并主文档添加一个 SET 域。返回一个 MailMergeField 对象。SET 域定义指定书签的文字。

expression.AddSet(Range,Name,ValueText,ValueAutoText)

expression 必需。该表达式返回一个 MailMergeFields 对象。

Range Range 对象，必需。指 SET 域的位置。

Name String 类型，必需。将ValueText指派至的书签名称。

ValueText Variant 类型，可选。由Name参数指定的与书签名称相关的文字。

ValueAutoText Variant 类型，可选。指与由Name 参数指定的书签名称相关的文字的“自动图文集”词条。如果指定该参数，则忽略ValueText。

示例

本示例在活动文档的开头添加一个 SET 域，然后添加一个 REF 域，显示选定后的文字。

Dim rngTemp as Range

Set rngTemp = ActiveDocument.Range(Start:=0, End:=0)

ActiveDocument.MailMerge.Fields.AddSet Range:=rngTemp, _
 Name:="Name", ValueText:="Joe Smith"
Selection.Collapse Direction:=wdCollapseEnd
ActiveDocument.Fields.Add Range:=Selection.Range, _
 Type:=wdFieldRef, Text:="Name"