Delete page (that includes a header & footer)

[Barry555]

I'm trying to delete the last page of a 4 page document. All pages have the
same header and footer.

I've tried macropod's code from 15/8/08 (slightly amended as I'm using late
binding):

objDoc.Application.Selection.Goto 1, -1 ' wdGoToPage, wdGoToLast
objDoc.Bookmarks("\Page").Range.Delete

This clears all the text (except in the header & footer) from the page, but
doesn't actually delete the page! I'm assuming this is because of the header
and footer. How can I actually delete the page?

 

[Jonathan West]

I'm trying to delete the last page of a 4 page document. All pages have
the
same header and footer.

I've tried macropod's code from 15/8/08 (slightly amended as I'm using
late
binding):

objDoc.Application.Selection.Goto 1, -1 ' wdGoToPage, wdGoToLast
objDoc.Bookmarks("\Page").Range.Delete

This clears all the text (except in the header & footer) from the page,
but
doesn't actually delete the page! I'm assuming this is because of the
header
and footer. How can I actually delete the page?

I suspect that there is a single blank paragraph at the end of the document
which is just about wrapping onto the final page. Try deleting the
last-but-one character in the document.

 

[Lene Fredborg]

The same would happen even if the header and footer were empty. If you turn
on formatting marks, you will see that an empty paragraph is left on the last
page after running the macro. Try to add the following line of code to you
macro:

objDoc.Paragraphs.Last.Range.Delete

--
Regards
Lene Fredborg - Microsoft MVP (Word)
DocTools - Denmark
www.thedoctools.com
Document automation - add-ins, macros and templates for Microsoft Word

 

[Barry555]

Yes!!!

Thank you Lene, that did it.

Barry.

The same would happen even if the header and footer were empty. If you turn
on formatting marks, you will see that an empty paragraph is left on the last
page after running the macro. Try to add the following line of code to you
macro:

objDoc.Paragraphs.Last.Range.Delete

--
Regards
Lene Fredborg - Microsoft MVP (Word)
DocTools - Denmark
www.thedoctools.com
Document automation - add-ins, macros and templates for Microsoft Word