title: Adding blank page where text ends on an odd page
body: <p>We are using a Duplex printer and we want Summary and Royalty to start on a new page.</p>
  
  <p>Summary is always one page, means we need to insert a blank page after this page. </p>
  
  <p>There is another section i.e. Royalty, if Royalty finishes on an odd page number then we need to add a blank page. </p>
  
  <p>My Code is:</p>
  
  <pre><code>Sub Test()
      InsertSectionBreaks "S U M M A R Y             "
      InsertSectionBreaks "R O Y A L T Y             "
  End Sub
  
  
  Sub InsertSectionBreaks(FindText As String)
      Dim FindRange As Word.Range, SectionRange As Word.Range
      Dim Found As Boolean
  
      Set FindRange = ActiveDocument.Content
  
      ' Find next section based on text, insert odd page section break just before
      FindRange.Find.ClearFormatting
      With FindRange.Find
          .Text = FindText
          .Replacement.Text = ""
          .Forward = True
          .Wrap = wdFindStop
          .Format = True
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
          Found = .Execute
      End With
  
      Do While Found
          'avoid adding a section break at beginning of document
          If FindRange.Information(wdActiveEndAdjustedPageNumber) &gt; 1 Then
              Set SectionRange = FindRange.Duplicate
              With SectionRange
                  .Expand wdParagraph
                  .Collapse wdCollapseStart
                  .InsertBreak Type:=wdSectionBreakOddPage
              End With
          End If
          FindRange.Collapse wdCollapseEnd
          Found = FindRange.Find.Execute
      Loop
  End Sub
  </code></pre>
  
  <p>But this is throwing the last line of page to blank page.</p>