microsoft.public.word.vba.general
back to index
Group: microsoft.public.word.vba.general
From: cyberdude
Date: Saturday, February 09, 2008 7:11 AM
Subject: Re: How to duplicate certain pages a number of times by Word VBA?
From: cyberdude
Date: Saturday, February 09, 2008 7:11 AM
Subject: Re: How to duplicate certain pages a number of times by Word VBA?
On 2月4日, 上午1時49分, "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
