VBA/Excel/Access/Word/Excel/Page Break

for a continuous break

 
Sub break5()
    ActiveDocument.Sections.add Range:=ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, _
            End:=ActiveDocument.Paragraphs(2).Range.End), Start:=wdSectionContinuous
End Sub

for an even-page break

 
Sub break()
    ActiveDocument.Paragraphs(2).Range.InsertBreak Type:=wdSectionBreakEvenPage
End Sub

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

for a new-column break

 
Sub break()
    ActiveDocument.Paragraphs(2).Range.InsertBreak Type:=wdColumnBreak
End Sub

for a new-column break: start and end

 
Sub break2()
    ActiveDocument.Sections.add Range:=ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, _
            End:=ActiveDocument.Paragraphs(2).Range.End), Start:=wdSectionNewColumn
End Sub

for a new-page break

 
Sub break()
    ActiveDocument.Paragraphs(2).Range.InsertBreak Type:=wdSectionBreakNextPage
End Sub

for an odd-page break

 
Sub break()
    ActiveDocument.Paragraphs(2).Range.InsertBreak Type:=wdSectionBreakOddPage
End Sub

for an odd-page break: start and end

 
Sub break3()
    ActiveDocument.Sections.add Range:=ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, _
            End:=ActiveDocument.Paragraphs(2).Range.End), Start:=wdSectionOddPage
End Sub

inserts a continuous section break before the second paragraph in the active document:

 
Sub break()
    ActiveDocument.Paragraphs(2).Range.InsertBreak Type:=wdSectionBreakContinuous
End Sub