Microsoft Office Forums - View Single Post - [Solved] inserting a page break after each 9th page? or skip print on the 10th page ?

Charles Kenyon · 05-27-2020, 05:01 AM

This document likely has an ordinary "next-page" section break at the end of the merge. Are there any section breaks in the document other than the one between merge records?

If this is the only instance of section breaks, here is a macro that changes all next-page section breaks to odd-page section breaks.

Code:

Sub ChangeSectionNextPageToOddPage()
 'Macro created by Stefan Blom, MVP, 12 January 2020
' How do I replace Next Page section breaks with Odd Page section - Microsoft Community

 '
    Dim s As Section
    '
    For Each s In ActiveDocument.Sections
    If s.PageSetup.SectionStart = wdSectionNewPage Then
        s.PageSetup.Setup.SectionStart = wdSectionOddPage
    End If
    Next s
    Set s = Nothing
  End Sub