Selection.Fields (Word)

Devuelve una colección Fields de sólo lectura que representa todos los campos de la selección.

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