microsoft.public.word.vba.general

Hi aal,

I encourage posters to give feedback by writing back after receiving
the advice so that we can know whether the solution worked or not
etc. Even if the reply is just "I gave up because I couldn't get it
to work". I say this because I tracked down the post you got the
sample from (I think its this
http://groups.google.com.au/group/microsoft.public.word.vba.general/browse_thread/thread/d9df65dce7314e9f/a65f4e9c704c40c7?lnk=gst&q=.Start+%3D+.GoTo(wdGoToPage%2C+wdGoToAbsolute%2C+%2C+Page1).Start#a65f4e9c704c40c7
).

That response correctly indicates a caveat that "Unless your pages are
separate by manual page breaks this is likely to go wrong."

However the solution is incorrect because it attempts to modify the
Activedocument'e end range (it cant be modified!.)
That cause the .copy to fail with error: "This Method or property is
not available beause no text is selected"

The following modified code (although not elegant) will do what you
want.
Let us know if it does.

Cheers
TonyS.

Page1 = InputBox("Please Enter First Page Number")
Page2 = InputBox("Please Enter Last Page Number")
Count = InputBox("Please Enter Number of times to duplicate")
Dim thisRng As Range

Set thisRng = ActiveDocument.Range
With ActiveDocument.Range

.GoTo wdGoToPage, wdGoToAbsolute, , Page1 '.Start
thisRng.Start = .Start
.GoTo wdGoToPage, wdGoToAbsolute, , Page2 + 1 '.Start
'Note; the following line could also be "= .start" since the
location it goes to is a selection point
thisRng.End = .End
thisRng.Select
thisRng.Copy
End With
With ActiveDocument.Range
For I = 1 To Count
.Collapse wdCollapseEnd
.Paste
Next
End With