• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 120
  • Last Modified:

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
0
wzkqxf
Asked:
wzkqxf
3 Solutions
 
Ingeborg Hawighorst (Microsoft MVP / EE MVE)Microsoft MVP ExcelCommented:
Hello,

create a new Excel file, put "Number" into A1. In A2 to A501 put the numbers 1 to 500.

Then set up your Word document as a Mail Merge document in a table with four cells on the page.

Start the mail merge wizard and select the "Labels" option. Use the Excel file as the source and add the mail merge field for the number. Place your design in the first cell of the table, then click "update all labels" to copy the design into the other cells.

Complete the merge to a new document.

cheers, teylyn
0
 
hnasrCommented:
Try this: Let word automation help you Ctrl+V 500 times.

Create a macro and insert the following:

Sub Macro1()

    Selection.MoveDown Unit:=wdLine, Count:=4, Extend:=wdExtend ' change number of text lines
    Selection.Copy
    Dim s As Selection
    For i = 1 To 3    ' change to 500
        Selection.TypeText Text:=i    ' adds numbering, remove if you have your own sequencing
        Selection.MoveDown Unit:=wdLine, Count:=1
        Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Next i

End Sub

Open in new window


Document needs to be saved as macro enabled document *.docm type
Position cursor at beginning of text to copy
Run macro1
0
 
GrahamSkanCommented:
Assuming that you start with a single page, you can do:
Sub CopyPages()
    Dim i As Integer
    ActiveDocument.Range.Copy
    For i = 1 To 499
        ActiveDocument.Bookmarks("\EndOfDoc").Range.Paste
    Next i
End Sub

Open in new window

0
Microsoft Certification Exam 74-409

VeeamĀ® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

 
GrahamSkanCommented:
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

0
 
wzkqxfAuthor Commented:
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
0
 
frankhelkCommented:
This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.
0

Featured Post

Free Backup Tool for VMware and Hyper-V

Restore full virtual machine or individual guest files from 19 common file systems directly from the backup file. Schedule VM backups with PowerShell scripts. Set desired time, lean back and let the script to notify you via email upon completion.  

Tackle projects and never again get stuck behind a technical roadblock.
Join Now