Page Deletion 1

[tyang01]

Hi I am working on deleting a 3rd page from a 10 page document in word 2003. I'm not sure where to start I am trying to automate this using VBA and the page is not manual page break. If you have any pointers I would appreciate it.

Thanks.

 

[Chance1234]

Do you know the contents of the page to be deleted or do you know the end of the second and start of fourth pages ?


Chance,

F, G and Skipper

 

[SkipVought]

What is distinct about page 3, that you need it deleted?

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[tyang01]

Hi Chance1234,

The contents at the end of second page and the beginning of the fourth page are bookmarks. The bookmark name at the end of page 2 is TPRTA5 and the bookmark name at the begining of page 4 is ISTA51.

 

[tyang01]

Hey Skip,

Yeah there are just normal text on page 3. There is nothing distinct about page 3. Just that people would rather just have a macro of some sort to delete content on the page rather then spending the time and selecting the text and deleting it themselves.

 

[fumei]

If this is the case....

"The bookmark name at the end of page 2 is TPRTA5 and the bookmark name at the begining of page 4 is ISTA51. "

Then this is fairly easy. Make a Range object with its Start = the End of TPRTA5, and its End = the Start of ISTA51 - 1, and delete it. Like so:

Dim r As Range
Set r = ActiveDocument.Range( _
   Start:= _
   ActiveDocument.Bookmarks("TPRTA5").Range.End, _
   End:= _
   ActiveDocument.Bookmarks("ISTA51").Range.Start - 1)
r.Delete

Note: this does NOT delete page 3. It deletes the range, whatever its length, between the bookmarks TPRTA5 and ISTA51.

Hope this helps.

faq219-2884

Gerry
My paintings and sculpture

 

[tyang01]

Thank you Fumei! This will work great for me. And thank you Skip and Chance.