microsoft.public.word.vba.general

On Mar 28, 12:01=A0am, aal wrote:
> Thanks, Tony. =A0Maybe I just don't understand how to run it. =A0I'm reall=
y not
> that great at VBA. =A0I pasted in the code then returned to the document,
> pressed F5 to run it and Find and Replace window pops up already on the Go=
To
> tab. =A0It asks me to enter a page number. =A0I had page 1, inserted a pag=
e break
> to make page two before I ever entered the code. =A0What am I doing wrong?=

>
> Also, if this code doesn't work, maybe we can do this another way. =A0I am=

> going to make a two-page template with each page having a separate layout.=
=A0I
> want the user to be able to add pages to a document based on the template =
but
> they will need to have two pages added each time. =A0For example, page 1 &=
2
> exists and they need to add another "set" (page 3 & 4 simultaneously). =A0=
Page
> 3 & 4 will have the same layouts as page 1 & 2, respectively. =A0Same goes=
if
> they need page 5 & 6 added. =A0Understand? =A0I can't seem to get a good a=
nswer
> no matter how I pose the question. =A0I'm not giving up. =A0There must be =
a way!
>
> "Tony Strazzeri" wrote:
> > 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. =A0Even if the reply is just "I gave up because I couldn't get it
> > to work". =A0I 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/b...
> > ).
>
> > That response correctly indicates a caveat that "Unless your pages are
> > separate by manual page breaks this is likely to go wrong."
>
> > However =A0the 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.
>
> > =A0 =A0 Page1 =3D InputBox("Please Enter First Page Number")
> > =A0 =A0 Page2 =3D InputBox("Please Enter Last Page Number")
> > =A0 =A0 Count =3D InputBox("Please Enter Number of times to duplicate")
> > =A0 =A0 Dim thisRng As Range
>
> > =A0 =A0 Set thisRng =3D ActiveDocument.Range
> > =A0 =A0 With ActiveDocument.Range
>
> > =A0 =A0 =A0 =A0 .GoTo wdGoToPage, wdGoToAbsolute, , Page1 =A0'.Start
> > =A0 =A0 =A0 =A0 thisRng.Start =3D .Start
> > =A0 =A0 =A0 =A0 .GoTo wdGoToPage, wdGoToAbsolute, , Page2 + 1 '.Start
> > =A0 =A0 =A0 =A0 'Note; the following line could also be "=3D .start" sin=
ce the
> > location it goes to is a selection point
> > =A0 =A0 =A0 =A0 thisRng.End =3D .End
> > =A0 =A0 =A0 =A0 thisRng.Select
> > =A0 =A0 =A0 =A0 thisRng.Copy
> > =A0 =A0 End With
> > =A0 =A0 With ActiveDocument.Range
> > =A0 =A0 =A0 =A0 For I =3D 1 To Count
> > =A0 =A0 =A0 =A0 =A0 =A0 .Collapse wdCollapseEnd
> > =A0 =A0 =A0 =A0 =A0 =A0 .Paste
> > =A0 =A0 =A0 =A0 Next
> > =A0 =A0 End With

Put your in the macro in the VBA IDE then Press F5.