

Set oRng = '.PreviousĪ oRng, wdFieldSectionPages, PreserveFormatting:=False Set oRng = oFldQ.Code '. '.Previous '.PreviousĪ oRng, wdFieldPage, PreserveFormatting:=False Sub FirstSectionSetup(ByRef oSect As Section, Optional strPlacement As String = "Footers") Sections(lngIndex), lngIndex, strPlacementĪ = bUserSetting Sections(1), strPlacementĪllOtherSectionSetup. Sections(lngIndex).īUserSetting = įirstSectionSetup. & "Enter ""H"" to place section numbering in headers.", "Placement", "F")) Select Case UCase(InputBox("Enter ""F"" to place section numbering in footers." _

'Developed by Greg Maxey and Doug Robbins. The illustration below depicts dual numbering in section 1: Section 1 contains two pages, section 2 contains three pages and section 3 contains three pages. Note: I use the term "content section" to differentiate and define a document section formed with section breaks consisting of like content (e.g., Marketing, Sales, etc.) from sections formed with section breaks for the purpose of document layout (e.g., page orientation, etc.)įor this demonstration I have used an eight page document containing three sections.
