If ActiveDocument.Fields.Count >= 1 Then ActiveDocument.Fields(1).Cut Selection.Collapse Direction:=wpsCollapseEnd Selection.PasteEnd If