for an even-page break
Sub break() ActiveDocument.Paragraphs(2).Range.InsertBreak Type:=wdSectionBreakEvenPage End Sub