Word Page Count

[jsolutions]

This is a follow up to thread707-1001749 which asked how to isolate part of a header or footer. With much help and many headaches, I was able to isolate what I needed from the footer. However, now I still need to be able to find the number of pages in a section - or worst case scenario find the total number of pages in the entire document.

I've gone through the PageNumbers collection and tried using the count funtion. It seems to always return Zero though.

Any direction on this would be much appreciated.

 

[jsolutions]

Actually, just found how to get the total number of pages -

ActiveWindow.Selection.Information(wdNumberOfPagesInDocument)

Quite intuitive, right?

As a follow up, does anyone know if there is a way to find the total number of pages for a section??

 

[TonyJollans]

Hi jsolutions,

You can use

[blue]activedocument.sections(1).range.ComputeStatistics(wdStatisticPages)[/blue]

but the range includes the section break at the end of the section and therefore usually gives a value greater than the actual number of pages.

A possible way to overcome this is to use

[blue]activedocument.range(activedocument.sections(3).range.start, activedocument.sections(3).range.End-1).ComputeStatistics(wdStatisticPages)[/blue]

In this case you may find that the last section of the document (which isn't terminated by a section break) occasionally (when the end of the document just falls on a new page thus giving a blank page at the end) understates the number of pages by one - you can probably live with this as easily as you can the odd behaviour which causes it.

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at VBAExpress[