AddMergeSeq Method Example

This example inserts text and a MERGESEQ field at the end of the active document.

Set myRange = ActiveDocument.Content
myRange.Collapse Direction:=wdCollapseEnd
ActiveDocument.MailMerge.Fields.AddMergeSeq Range:=myRange
myRange.InsertAfter "Sequence Number: "