Copying a Range of Pages in a Macro

by Allen Wyatt
(last updated February 17, 2018)

Kevin wonders if there is a way, in VBA, to copy a range of pages. He knows how to copy paragraphs and a contiguous range of text, but he doesn't know how to copy entire pages.

There is no VBA object that references an entire page, such as there is with a paragraph, nor is there a VBA statement that will allow you to select a page. You can, however, calculate what would comprise a page and then select that range. The general concept is shown in this macro:

Sub CopyPages1()
    Dim rCopy As Range

    Set rCopy = ActiveDocument.GoTo(What:=wdGoToPage, _
      Which:=wdGoToAbsolute, Count:=7)
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=9

    rCopy.End = Selection.Bookmarks("\Page").Range.End

    rCopy.Select
End Sub

This macro sets the rCopy range equal to the point where page 7 begins. It then selects the text at the very beginning of page 9 and uses one of Word's built-in bookmarks to select from the top of page 7 to the end of page 9. (That is what this macro is designed to do—select pages 7 through 9.)

You should note, however, that pages are very fluid in Word. If you use the exact same document on two different systems, the above macro may very well return different selections entirely. Why? Because the pages can flow differently on each of the systems.

If you want to actually copy the selected pages (7 through 9), then you can modify the macro just a bit to get the desired result.

Sub CopyPages2()
    Dim rCopy As Range
    Dim rCurrent As Range

    Set rCurrent = Selection.Range

    Set rCopy = ActiveDocument.GoTo(What:=wdGoToPage, _
      Which:=wdGoToAbsolute, Count:=7)
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=9

    rCopy.End = Selection.Bookmarks("\Page").Range.End
    rCopy.Copy
    Documents.Add
    ActiveDocument.Range.PasteSpecial

    rCurrent.Select
End Sub

Note that the macro "remembers" what the user had selected before it was run, storing the range in the rCurrent variable and using it to again select that area at the end of the macro. The selected pages (again, 7 through 9) are copied to a brand new document.

You should note that the above macros only work properly if there are actually at least 9 pages in the current document. If you would like a more flexible and robust macro, you might consider the following variation.

Sub CopyPages3()
    Dim rCopy As Range
    Dim rCurrent As Range
    Dim sTemp As String
    Dim i As Integer
    Dim iStart As Integer
    Dim iEnd As Integer
    
    Set rCurrent = Selection.Range

    ' Get page numbers to be copied
    sTemp = InputBox("Page range to copy (use format 6-7)", "")
    i = InStr(sTemp, "-")
    If i > 0 Then
        iStart = Val(Left(sTemp, i - 1))
        iEnd = Val(Mid(sTemp, i + 1))
        
        If iStart < 1 Then iStart = 1
        If iEnd < iStart Then iEnd = iStart
        With ActiveDocument.Range
            If iStart > .Information(wdNumberOfPagesInDocument) Then
                iStart = .Information(wdNumberOfPagesInDocument)
            End If
            If iEnd > .Information(wdNumberOfPagesInDocument) Then
                iEnd = .Information(wdNumberOfPagesInDocument)
            End If
        End With

        ' Set the range
        Set rCopy = ActiveDocument.GoTo(What:=wdGoToPage, _
          Which:=wdGoToAbsolute, Count:=iStart)
        
        Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, _
          Count:=iEnd
        rCopy.End = Selection.Bookmarks("\Page").Range.End
        
        ' Copy range to a new document
        rCopy.Copy
        Documents.Add
        ActiveDocument.Range.PasteSpecial

        rCurrent.Select
    Else
        If sTemp > "" Then
            MsgBox "There is no dash character"
        End If
    End If
End Sub

This version asks the user to specify a page range to be copied. The page numbers are adjusted to make sure that the starting number is less than or equal to the ending number, and both starting and ending numbers are ensured to be less than the total number of pages in the document.

Note:

If you would like to know how to use the macros described on this page (or on any other page on the WordTips sites), I've prepared a special page that includes helpful information. Click here to open that special page in a new browser tab.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (5295) applies to Microsoft Word 2007, 2010, 2013, and 2016.

Author Bio

Allen Wyatt

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company. ...

MORE FROM ALLEN

Editing Wrap Points

If you have a graphic that has text wrapping around it, you might want a way to modify the wrapping path used by Word. ...

Discover More

Activating the Formula Bar with the Keyboard

Hate to take your hands off the keyboard while working on a worksheet? Here's one way to activate the Formula Bar without ...

Discover More

Limits on Path Length in Word

When you organize your hard drive, it is easy to go hog-wild with folders and subfolders. You need to know that how you ...

Discover More

Do More in Less Time! Are you ready to harness the full power of Word 2013 to create professional documents? In this comprehensive guide you'll learn the skills and techniques for efficiently building the documents you need for your professional and your personal life. Check out Word 2013 In Depth today!

More WordTips (ribbon)

Jumping to the Start or End of a Document

When creating macros, it is often necessary to move the insertion point around the document so that text can be processed ...

Discover More

Detecting the Beginning of a Sentence in a Macro

Macros can make life easier, as they provide a fast and efficient way of processing text in a document. Such is the case ...

Discover More

Defining a Shortcut for a Macro

You can make running macros very easy if you assign a shortcut key to the macro. This tip demonstrates how easy it is to ...

Discover More
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

View most recent newsletter.

Comments

If you would like to add an image to your comment (not an avatar, but an image to help in making the point of your comment), include the characters [{fig}] in your comment text. You’ll be prompted to upload your image when you submit the comment. Maximum image size is 6Mpixels. Images larger than 600px wide or 1000px tall will be reduced. Up to three images may be included in a comment. All images are subject to review. Commenting privileges may be curtailed if inappropriate images are posted.

What is 9 + 9?

There are currently no comments for this tip. (Be the first to leave your comment—just use the simple form above!)


This Site

Got a version of Word that uses the ribbon interface (Word 2007 or later)? This site is for you! If you use an earlier version of Word, visit our WordTips site focusing on the menu interface.

Newest Tips
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

(Your e-mail address is not shared with anyone, ever.)

View the most recent newsletter.