![]() |
#1
|
|||
|
|||
![]()
What I need to do is take a set page in a Word document and duplicate (copy & paste) it a set number of times using VBA.
The desired solution is a function that I am able to pass in the number of additional pages I want. The function would then take the only page in the document and add this number of exact copies to the end. Thanks in advance for any help, Dan |
#2
|
||||
|
||||
![]()
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] |
#3
|
||||
|
||||
![]()
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
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#4
|
|||
|
|||
![]()
That worked perfectly!
Thank you! |
![]() |
Tags |
copy and paste, duplicate, vba |
|
![]() |
||||
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 |
![]() |
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 |
![]() |
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 |