Set myRange = ActiveDocument.Paragraphs(2).Range With myRange .Collapse Direction:=wpsCollapseEnd .InsertBreak Type:=wpsPageBreak End With