Set Range1 = ActiveDocument.Paragraphs(1).Range With Range1 .Collapse Direction:=wpsCollapseStart .Move Unit:=wpsParagraph, Count:=3 .Select End With