View Single Post
 
Old 10-20-2016, 06:45 AM
Cov_ATC Cov_ATC is offline Windows 7 64bit Office 2013
Novice
 
Join Date: Oct 2016
Posts: 5
Cov_ATC is on a distinguished road
Default

Hi GMayor

Thank you for your help. I have managed to get it to work as you suggested.

HOWEVER, Macropod,

I now am really interested with your Field Code solution.
The only issue: I must then go through the whole document to input the code (with CTRL+F9 many times) to have the code added before all the SectionBreaks. The document is huge and since I can't "copy/Paste", I wondered if there were a way to VBA code the field codes, so that if I click on a button it will run a Sub / End Sub that will have the field code encoded in the Sub and have the vba code to add a sectionbreak?

for instance, something as such: (with the field code actually in a vba format)


Code:
Sub AddNextPageSectionBreakWithFieldCode()
 With Selection
   
    'Field code
    {IF{=MOD({PAGE},2)}= 1 "{QUOTE 12}¶
     This page intentionally left blank¶
    "}

    'Adds a new line
    .TypeParagraph

    'puts a Next Page SectionBreak
    .InsertBreak Type:=wdSectionBreakNextPage

 End With
End Sub
Kind regards,

Cov_ATC



Quote:
Originally Posted by macropod View Post
You really don't need a macro for this. Not only that but using a macro can result in unwanted 'Page left blank' pages when you open or print the document using a different active printer driver.

All you need is a field, coded along the lines of:
{IF{=MOD({PAGE},2)}= 1 "{QUOTE 12}¶
This page intentionally left blank¶
"}
to automatically insert a blank page if the page on which they occur is an odd-numbered one.

To get the same effect for an even-numbered page, change the '1' to '0'.
Reply With Quote