for a new-page break
Sub break() ActiveDocument.Paragraphs(2).Range.InsertBreak Type:=wdSectionBreakNextPage End Sub