Defines boundaries withing a Page in a Word Document. Also represents a single section in a selection, range, or document. Section is a member of the Sections collection which can be referenced by passing an index (a positive integer) or for each loop. The Sections collection includes all the sections in a Selection, Range, or Document. The following example changes the left and right page margins for the first section in the active document.
Public Sub CheckSections() 'Bind active document Dim oDocument As Document Set oDocument = ActiveDocument 'print number of sections in active document Debug.Print oDocument.Sections.Count End Sub
Public Sub AddSection() 'Bind active document Dim oDocument As Document Set oDocument = ActiveDocument 'Bind Range Dim oRange As Range 'Set range to start of the document Set oRange = oDocument.Range(Start:=0, End:=0) 'Add section oDocument.Sections.Add Range:=oRange 'insert new paragraph oRange.InsertParagraphAfter End Sub
Since there is no delete method under section object hence, we need to follow Range Delete method as given in code below:
Public Sub DeleteSection() 'Bind active document Dim oDocument As Document Set oDocument = ActiveDocument 'Declare section Dim oSection As Section 'Bind section Set oSection = oDocument.Sections(1) 'Select section oSection.Range.Select 'delete section oSection.Range.Delete End Sub
Represents a positive integer number by which we can iterate particular section. In below example we will increase margin to a section:
Public Sub IncreaseMargin() 'Bind active document Dim oDocument As Document Set oDocument = ActiveDocument 'set left margin oDocument.Sections(2).PageSetup.LeftMargin = InchesToPoints(0.8) 'set right margin oDocument.Sections(2).PageSetup.RightMargin = InchesToPoints(0.8) End Sub
Please leave your comments or queries under comment section also please do subscribe to out blogs to keep your self upto date.