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

macropod · #2 01-24-2018, 03:05 PM

If you insert a next page section break at the end of the document, unlinking that section's headers/footers from those of the previous sections, then put the entire page you want to replicate into the last Section's header, the following macro will let you make as many copies of that page as you require.

Code:

Sub LastPageCopier()
Application.ScreenUpdating = False
Dim iCount As Long, i As Long
On Error GoTo Done
iCount = InputBox("How many of the last page do you need?", "Last Page Copier", 2)
If IsNumeric(iCount) = False Then GoTo Done: If iCount < 2 Then GoTo Done
For i = 1 To iCount
  ActiveDocument.Range.InsertAfter Text:=Chr(12)
Next
Done:
Application.ScreenUpdating = True
End Sub

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