Sections object (Word)
A collection of Section objects in a selection, range, or document.
Use the Sections property to return the Sections collection. The following example inserts text at the end of the last section in the active document.
With ActiveDocument.Sections.Last.Range
.Collapse Direction:=wdCollapseEnd
.InsertAfter "end of document"
End With
Use the Add method or the InsertBreak method to add a new section to a document. The following example adds a new section at the beginning of the active document.
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
ActiveDocument.Sections.Add Range:=myRange
myRange.InsertParagraphAfter
The following example displays the number of sections in the active document, adds a section break above the first paragraph in the selection, and then displays the number of sections again.
MsgBox ActiveDocument.Sections.Count & " sections"
Selection.Paragraphs(1).Range.InsertBreak _
Type:=wdSectionBreakContinuous
MsgBox ActiveDocument.Sections.Count & " sections"
Use Sections (index), where index is the index number, to return a single Section object. The following example changes the left and right page margins for the first section in the active document.
With ActiveDocument.Sections(1).PageSetup
.LeftMargin = InchesToPoints(0.5)
.RightMargin = InchesToPoints(0.5)
End With
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.