ActiveDocument.Paragraphs(1).Range.Copy Selection.Collapse Direction:=wpsCollapseStart Selection.Paste