MailMergeFields.AddMergeSeq (Word)

Adiciona um campo MERGESEQ a um documento principal de mala direta. Retorna um objeto MailMergeField .

Um campo MERGESEQ insere um número baseado na sequência em que os registros são mesclados (por exemplo, quando o registro 50 dos registros de 50 a 100 é mesclado, MERGESEQ insere o número 1).

AddMergeSeq (Range)

Range: A posição do campo MERGESEQ.

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