Hi
A very basic a simple solution, assuming your documents are 1 page long is to use the following vba code. Cut and paste this code into a Module sheet in MS Word.
Sub Macro2()
'
' Macro2 Macro
'
'
Selection.WholeStory
Selection.Copy
Selection.EndKey Unit:=wdStory
Selection.InsertBreak Type:=wdPageBreak
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Selection.InsertBreak Type:=wdPageBreak
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Selection.HomeKey Unit:=wdStory
End Sub
When you have completed typing your first page, run this macro and it will duplicate the first page to pages 2 and 3.
If you need anything more complex then provide more detail about the style of the document etc and we will see what we can do for you.
Good luck.
Tony(OTPM)
|