Forcing odd section breaks retroactively in a document

J

Jenn Searls

My boss has a document that he wants to reformat. He wants to force each new
section onto an odd page as he's duplex printing this document. He would like
to go back and reformat the document so that regular "Next Page" section
breaks are now "Odd Page" section breaks without having to go back and
manually inserting them.
 
J

Jay Freedman

Jenn said:
My boss has a document that he wants to reformat. He wants to force
each new section onto an odd page as he's duplex printing this
document. He would like to go back and reformat the document so that
regular "Next Page" section breaks are now "Odd Page" section breaks
without having to go back and manually inserting them.
Click to expand...

Run this macro:

Sub OddStartSecs()
Dim oSec As Section
For Each oSec In ActiveDocument.Sections
With oSec.PageSetup
If .SectionStart = wdSectionNewPage Then
.SectionStart = wdSectionOddPage
End If
Next oSec
End Sub

See http://www.gmayor.com/installing_macro.htm if necessary.
 
Top