Link to home
Start Free TrialLog in
Avatar of wzkqxf
wzkqxfFlag for Australia

asked on

Copy pages in Microsoft Word 2010

Hi Experts

I would like to be able to copy pages, 500 of them without having to resort to Ctrl+V for each page. The project is to produce 2000 raffle tickets @ 4 to a page. I have the code for sequential numbering and it works but doing Ctrl+V 500 times is really tedious. Is there a way to automate the process? Appreciate any guidance you can give. This is very important, so 500 points are up for grabs. Thanks in advance.
Rob
SOLUTION
Avatar of Ingeborg Hawighorst (Microsoft MVP / EE MVE)
Ingeborg Hawighorst (Microsoft MVP / EE MVE)
Flag of New Zealand image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
SOLUTION
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
ASKER CERTIFIED SOLUTION
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
You say that you already have the codeto do the numbering, but you might like to use a SEQ field.

Insert a field like this: { SEQ TicketNo } in all four of the tickets. Run this modified macro which updates the fields.
Sub CopyPages()
    Dim i As Integer
    ActiveDocument.Range.Copy
    For i = 1 To 499
        ActiveDocument.Bookmarks("\EndOfDoc").Range.Paste
    Next i
    ActiveDocument.Fields.Update
End Sub

Open in new window

Avatar of wzkqxf

ASKER

All, thanks for your suggestions so far. I have been away on business and could not respond. I will evaluate over the weekend. Thanks again for your interest.

Rob
This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.