View Single Post
  #2   Report Post  
Posted to microsoft.public.word.docmanagement
Graham Mayor
 
Posts: n/a
Default Word should let you select/delete page ranges (using a dialog)?

Word is not a page based application. There is no such thing as a Word
'page' per se. A page is a collection of elements and the content in the
text layer is affected by a variety of factors, not least of which is the
printer driver. Selection of a range of pages for deletion is possible, but
is unpredictable because of the presence of sections and headers etc, so
removal of such a range may not give you the results you anticipate.
However, you could try the following macro which will be as close as you can
reasonably get:

Sub PageDelete()
sNumber = InputBox("Delete from which page", "Delete Pages", 1)
sRange = InputBox("Delete how many pages", "Delete Pages", 1)
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=sNumber
For a = 1 To sRange
ActiveDocument.Bookmarks("\page").Range.Delete
Next a
End Sub

http://www.gmayor.com/installing_macro.htm

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


zrenneh wrote:
I frequently work with large documents (250+ pages).
Selecting a large number of pages for copying/deletion is time
consuming: you have to just scroll through them all. Maybe a dialog
box would make this easier?

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click
the "I Agree" button in the message pane. If you do not see the
button, follow this link to open the suggestion in the Microsoft
Web-based Newsreader and then click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...ocmanagemen t