Selection.Fields (Word)

Renvoie une collection Fields en lecture seule qui représente tous les champs contenus dans la sélection.

With Selection 
 .Collapse Direction:=wdCollapseStart 
 .Fields.Add Range:=Selection.Range, Type:=wdFieldDate 
End With