Selection.Fields (Word)

Retorna uma coleção Fields somente leitura que representa todos os campos da seleção.

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