microsoft.public.word.vba.general

This is slightly more complicated but, with the same caveat as before, this
should do it:

Page1 = InputBox("Please Enter First Page Number")
Page2 = InputBox("Please Enter Last Page Number")
Count = InputBox("Please Enter Number of times to duplicate")
With ActiveDocument.Range
.Start = .GoTo(wdGoToPage, wdGoToAbsolute, , Page1).Start
.End = .GoTo(wdGoToPage, wdGoToAbsolute, , Page2 + 1).Start
.Copy
End With
With ActiveDocument.Range
For i = 1 To Count
.Collapse wdCollapseEnd
.Paste
Next
End With

Completely off-topic: I see you sign yourself as Mike here but as David in
another post. Do you have a real name?

--
Enjoy,
Tony

"cyberdude" wrote in message
news:ec673c12-8333-41d1-996e-21d55fca4db8@s19g2000prg.googlegroups.com...
> On 2$B7n(B4$BF|(B, $B>e8a(B1$B;~(B49$BJ,(B, "Tony Jollans"
> wrote:
>> Unless your pages are separate by manual page breaks this is likely to go
>> wrong. With that caveat, this is fairly basic code to do it
>>
>> Page = InputBox("Please Enter Page Number")
>> Count = InputBox("Please Enter Number of times to duplicate")
>> With Selection
>> .GoTo wdGoToPage, wdGoToAbsolute, Page
>> .Bookmarks("\Page").Range.Copy
>> For i = 1 To Count: .Paste: Next
>> End With
>>
>> --
>> Enjoy,
>> Tony
>
> Thanks for your reply.
>
> What if I want to copy P.2 to P.4 to the end of the same document 3
> times?
> I'll be glad to you if you can provide me with the code. Thank you.
>
> Mike