View Single Post
 
Old 01-24-2018, 03:05 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,343
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

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
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote