for an even-page break: set start and end
Sub break4()
ActiveDocument.Sections.add Range:=ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, _
End:=ActiveDocument.Paragraphs(2).Range.End), Start:=wdSectionEvenPage
End Sub
Related examples in the same category