AddMergeSeq 方法

向邮件合并主文档添加一个 MERGESEQ 域。返回一个 MailMergeField 对象。MERGESEQ 域将根据数据记录合并的顺序插入一个编号（例如，当合并从 50 到 100 的记录中，在合并第 50 个记录时，MERGESEQ 插入编号 1）。

expression.AddMergeSeq(Range)

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

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

示例

本示例在活动文档的末尾处插入文字和一个 MERGESEQ 域。

Dim rngTemp As Range

Set rngTemp = ActiveDocument.Content

rngTemp.Collapse Direction:=wdCollapseEnd
ActiveDocument.MailMerge.Fields.AddMergeSeq Range:=rngTemp
rngTemp.InsertAfter "Sequence Number: "