Loading
Word.Tips.Net WordTips (Menu Interface)

Automatic Blank Pages at the End of a Section

Please Note: This article is written for users of the following Microsoft Word versions: 97, 2000, 2002, and 2003. If you are using a later version (Word 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Word, click here: Automatic Blank Pages at the End of a Section.

Word allows you to add several types of section breaks into your document. Two of the section break types result in the addition of blank pages to the document, if necessary. For instance, if you use an Odd Page section break, and the previous section ends on an odd page, then Word automatically inserts a blank even page so that the next section can start on the next odd page.

The problem with this is that Word inserts an absolutely blank page—it doesn't even print headers or footers on the page. If you prefer headers and footers or some other information on the page (such as "This page intentionally left blank"), then you cannot rely on Word's section breaks alone.

One approach is to manually look at a document and, if necessary, add your own invisible text that would "print" on the page that would otherwise be blank. You create invisible text by adding regular text and formatting it as white. White on white, when printed, is invisible. Word, however, doesn't realize this and provides headers and footers on the "blank" page.

An interesting approach is to create your own end-of-section standard text. Create an AutoText entry that contains your end-of-section text, including a page break at the beginning of the entry. Name the entry something like "BLANKPAGE." Then, at the end of each section, just before the section break, add the following compound field:

{ if { =int( {page} / 2 ) * 2 } = { page }  " " { autotext "BLANKPAGE" } }

Remember that the braces shown in this example are supposed to be field braces. You enter field braces by pressing Ctrl+F9 for each set. The field checks to see if the current page is, in this case, even. If it is, then the field automatically inserts your AutoText information.

If desired, you can also create a macro that will step through the document, look at each section, decide how many pages are in the section, and then add a page break at the end of the section, if necessary. The following macro does this very task:

Sub CheckSecLen()
    Dim iSec As Integer
    Dim oRng As Range
    Dim iValue As Integer

    With ActiveDocument
        ' go through each section (except for the last one)
        For iSec = 1 To .Sections.Count - 1
            ' create a range object at the start of the section
            Set oRng = .Sections(iSec).Range
            oRng.Collapse wdCollapseStart
            ' insert a sectionpages field
            .Fields.Add Range:=oRng, Type:=wdFieldSectionPages
            ' divide the sectionpages field by 2
            ' if it gives a zero as the remainder, then
            ' you have an even number of pages in the section,
            ' which is what you want with an odd section page break
            If (.Sections(iSec).Range.Fields(1).Result Mod 2) <> 0 Then
                ' if you have an odd number of pages, then insert
                ' a page break before the section's section break
                Set oRng = .Sections(iSec).Range
                With oRng
                    .Collapse Direction:=wdCollapseEnd
                    .MoveEnd unit:=wdCharacter, Count:=-1
                    .InsertBreak Type:=wdPageBreak
                End With
            End If
            ' remove the sectionpages field that was added
            .Sections(iSec).Range.Fields(1).Delete
        Next iSec
    End With
End Sub

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (1870) applies to Microsoft Word 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Word (Word 2007 and later) here: Automatic Blank Pages at the End of a Section.

Related Tips:

The First and Last Word on Word! Bestselling For Dummies author Dan Gookin puts his usual fun and friendly candor back to work to show you how to navigate Word 2013. Spend more time working and less time trying to figure it all out! Check out Word 2013 For Dummies today!

 

Leave your own comment:

*Name:
Email:
  Notify me about new comments ONLY FOR THIS TIP
Notify me about new comments ANYWHERE ON THIS SITE
Hide my email address
*Text:
*What is 5+3 (To prevent automated submissions and spam.)
 
 
           Commenting Terms

Comments for this tip:

Jessica Davis    18 May 2016, 16:23
This works beautifully; however, I had to add:

.InsertParagraph after the .InsertBreak method. Without it, Word 2013 was still inserting a blank page.

I also added:
 .InsertAfter "<blank page text>" to insert a message.

Thanks for posting this macro. Saved me a great deal of time.
Steve Wells    12 Oct 2013, 21:11
AutoText in a field is static and doesn’t travel with its document if copied alone to a different computer, so it presents reuse issues.
I use an embedded compound field/macro combination somewhat like that in the WordTip. It references the current chapter heading in a style that places the message centered with 216 points of Space Before and the chapter name placed in bold. Thus, I get a message placed just above mid-page saying, for example:
This page concludes
Site Requirements.

Such a message is true, brief, and without controversy--unlike the self-falsifying "This page intentionally left blank," which can generate semantic disonance that distracts some readers.
 
 

Our Company

Sharon Parq Associates, Inc.

About Tips.Net

Contact Us

 

Advertise with Us

Our Privacy Policy

Our Sites

Tips.Net

Beauty and Style

Cars

Cleaning

Cooking

DriveTips (Google Drive)

ExcelTips (Excel 97–2003)

ExcelTips (Excel 2007–2016)

Gardening

Health

Home Improvement

Money and Finances

Organizing

Pests and Bugs

Pets and Animals

WindowsTips (Microsoft Windows)

WordTips (Word 97–2003)

WordTips (Word 2007–2016)

Our Products

Helpful E-books

Newsletter Archives

 

Excel Products

Word Products

Our Authors

Author Index

Write for Tips.Net

Copyright © 2016 Sharon Parq Associates, Inc.