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

for a continuous break

   <source lang="vb">

Sub break5()

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

End Sub

</source>
   
  

for an even-page break

   <source lang="vb">

Sub break()

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

End Sub

</source>
   
  

for an even-page break: set start and end

   <source lang="vb">

Sub break4()

   ActiveDocument.Sections.add Range:=ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, _
           End:=ActiveDocument.Paragraphs(2).Range.End), Start:=wdSectionEvenPage

End Sub

</source>
   
  

for a new-column break

   <source lang="vb">

Sub break()

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

End Sub

</source>
   
  

for a new-column break: start and end

   <source lang="vb">

Sub break2()

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

End Sub

</source>
   
  

for a new-page break

   <source lang="vb">

Sub break()

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

End Sub

</source>
   
  

for an odd-page break

   <source lang="vb">

Sub break()

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

End Sub

</source>
   
  

for an odd-page break: start and end

   <source lang="vb">

Sub break3()

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

End Sub

</source>
   
  

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

   <source lang="vb">

Sub break()

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

End Sub

</source>