Selection.Fields (Word)

Returns a read-only Fields collection that represents all the fields in the selection.

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