Copy the only page in Word document a given number of times in VBA

gmayor · #1 01-24-2018, 10:10 PM

While Paul's suggestion is ingenious, you could also do it without modifying the document:

Code:

Sub CopyPage()
Dim oRng As Range, oEnd As Range
Dim lngCopies As Long, i As Long
    lngCopies = InputBox("How many copies?")
    Set oRng = ActiveDocument.Bookmarks("\page").Range
    For i = 1 To lngCopies
        ActiveDocument.Range.InsertAfter Chr(12)
        Set oEnd = ActiveDocument.Range
        oEnd.Collapse 0
        oEnd.FormattedText = oRng.FormattedText
    Next i
lbl_Exit:
    Set oRng = Nothing
    Set oEnd = Nothing
    Exit Sub
End Sub

If you have a page number field in your document, you need to decide how you want the numbering to appear in the finished document. If you want 1 on each page then change the field for '1' as text; however if you do that it is difficult to see the point of the document. If you want to print a number of copies then why duplicate them first? If you want numbered printed copies then see http://www.gmayor.com/automatic_numbering_documents.htm

dpashley · #2 01-25-2018, 02:33 AM

That worked perfectly!

Thank you!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Running Head AND Page Number on First Page of Document (for APA Format) with Word 2003	DBinSJ	Word	3	11-23-2016 11:52 AM
Copy a page from a document	James__S	Word	4	10-29-2014 12:23 AM
Anyway to copy a complete page full of objects into a new document?	MuffinStud	Word	1	12-20-2012 04:43 AM
Word Issue, bottom of document is showing on the screen several times.	TerryBlevins	Word	1	12-21-2011 12:58 AM
Copy the contents of a dcoument and paste it several times in a new document	Gerjanst	Word VBA	0	06-30-2010 12:51 PM