script to copy pages in MSWORD

[Chris & Shelley]

I am using the page set up
A4 potrait
2 sheets per page (A5 landscape)

I am after a vba script to read the A5 page in word, copy it and paste it to
the next A5 page (both on the same A4 sheet when printed)

Then go to the next page and repeat

I also want page numbering ie: so that Page 1 appears at the end of each A5
page ie: twice on the A4 sheet

Thanks inadvance

 

[Jezebel]

good luck.

 

[Word Heretic]

G'day "Chris & Shelley" <[email protected]>,

I can provide a commercial solutrion if required.

I am using the page set up
A4 potrait
2 sheets per page (A5 landscape)

I am after a vba script to read the A5 page in word, copy it and paste it to
the next A5 page (both on the same A4 sheet when printed)

Then go to the next page and repeat

I also want page numbering ie: so that Page 1 appears at the end of each A5
page ie: twice on the A4 sheet

Thanks inadvance

Steve Hudson

Word Heretic, Sydney, Australia
Tricky stuff with Word or words for you.
wordheretic.com

If my answers r 2 terse, ask again or hassle an MVP,
at least they get recognition for it then.
Lengthy replies offlist require payment.

 

[Jonathan West]

Hi Chris & Shelley,

Do you want it simply printed like this, or do you want to be able to edit
the pages after they are duplicated?

If all you want to do is to be able to print the document duplicated in this
way, then the following bit of code should do the trick.

Sub PrintPagesTwice()

Dim i As Long
Dim strPages As String
ActiveDocument.Repaginate
For i = 1 To Selection.Information(wdNumberOfPagesInDocument)
strPages = strPages & ", " & CStr(i) & ", " & CStr(i)
Next i
strPages = Mid$(strPages, 3)

Application.PrintOut Range:=wdPrintRangeOfPages,
Item:=wdPrintDocumentContent, _
Pages:=strPages, PageType:=wdPrintAllPages, _
PrintZoomColumn:=2, PrintZoomRow:=1
End Sub