AddSet 方法

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

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"