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