With Selection .Collapse Direction:=wpsCollapseStart .Fields.Add Range:=Selection.Range, Type:=wpsFieldDate End With