MailMergeFields.AddMergeSeq (Word)

Ajoute un champ MERGESEQ à un document principal de fusion.

Un champ MERGESEQ insère un numéro basé sur l'ordre dans lequel les enregistrements sont fusionnés (par exemple, lorsque la fusion concerne les enregistrements 50 à 100, le champ MERGESEQ insère, pour l'enregistrement 50, le numéro 1.

AddMergeSeq (Range)

Range: Emplacement du champ MERGESEQ.

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