> It is easy to select 1 page,the current page (Selection.GoTo
> What:=wdGoToBookmark, Name:="\page"), but how to select multiple
> pages, eg page 2 - 4
Like this:
Dim rgePages As Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2
Set rgePages = Selection.Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=4
rgePages.End = Selection.Bookmarks("\Page").Range.End
rgePages.Select
--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarci...@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org
Huub.
"Huub" wrote:
> how to select multiple pages, eg
> page 2 - 4
>
Reducing the view to < 50% produces a single sheet of thumbnails. Then,
using Go To Page [number] and scrolling with the cursor depressed provides an
easy way to select and extract (or delete) large sections of contiguous
pages.