Removing Pages in a long document

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

reekop - 10 Dec 2003 14:10 GMT

I have a large document that I wish to remove particular
pages. i.e. in a 100 page document I wish to remove
specific pages 6-10, 50-55 etc. (kind of like the Page
Ranges idea in the Print option). I wish to delete the
page(s) and text in one action if possible.

Any suggestions apprecitated.

Reply to this Message

Suzanne S. Barnhill - 10 Dec 2003 14:50 GMT

The only way to delete pages is to select all the text on those pages and
delete it.

--
Suzanne S. Barnhill
Microsoft MVP (Word)

Signature

Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://www.mvps.org/word
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

> I have a large document that I wish to remove particular
> pages. i.e. in a 100 page document I wish to remove
[quoted text clipped - 3 lines]
>
> Any suggestions apprecitated.

Reply to this Message

Graham Mayor - 10 Dec 2003 14:52 GMT

There is no such thing as a page in Word. The page is merely a transient
device created by a combination of formatting and the printer driver. If you
could delete pages 6-10, then the document would reformat and 50-55 would no
longer be in the same place. Also depending what elements are on the page,
the results could be curious to say the least.

The following macro will do what you ask, but I strongly urge you only to
use it on a copy of the document as the results will be unpredictable. If
the wheel comes off, Word has many layers of undo :)

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

Signature

<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>
Graham Mayor - Word MVP
E-mail gmayor@mvps.org
Web site www.gmayor.com
Word MVP web site www.mvps.org/word
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>

> I have a large document that I wish to remove particular
> pages. i.e. in a 100 page document I wish to remove
[quoted text clipped - 3 lines]
>
> Any suggestions apprecitated.

Reply to this Message

rekoop - 10 Dec 2003 20:10 GMT

>-----Original Message-----
>There is no such thing as a page in Word. The page is merely a transient
[quoted text clipped - 23 lines]
>>
>> Any suggestions apprecitated.

Hello Again,

>Inserted the macro and rec'd the following msg...

Run-time error 5904
Cannot edit Range

When I debug the ActiveDocument.Bookmarks line is
highlighted.

Thank-you (Again)

Reply to this Message

rekoop - 10 Dec 2003 23:30 GMT

Please ignore previous msg on string...macro works fine

>-----Original Message-----
>
[quoted text clipped - 47 lines]
>Thank-you (Again)
>.

Reply to this Message