Word VBA - "Page left Blank" between Sections to make all Sections start on even page
Hi,
I am editing a huge Word Doc for my airport, which has many sections.
However some sections started on Odd pages.
I found online a Word VBA code (image 3, attached), and it seems to be the only one out there, that does the job of adding a blank page to those Sections starting on odd pages (as seen in Image 1, attached).
The code works brilliantly when executed (as seen in Image 2, attached).
Our problem is that what the code only seems to be doing, is shifting the PageBreak and SectionBreak prior to the new sections that start on Odd pages (as seen in image 1) to a new page by adding another PageBreak, thus also Shifting the Section that started on Odd page to a new page, this time an Even page. (as seen on Image 2).
However, we would like that that blank page that this effectively created has written something like "Page Left Blank" with the following formatting: Centered on the whole page, Bold, Grey Colour, font Size 20, Font type Arial.
Could you help us in improving the code, or have another code to go along side it to do the job.
Kind regards,
Chris C.
|