How to count the number of pages in a doc 2

[nesplb]

Does anyone know how I can count the number of pages in a word document?
Maybe a too simple question but....:$
In advance thanX!

Pål Nesteby

PDC-Tangen
Norway

 

[chandlm]

HI nesplb
This should work for you.

activedocument.BuiltInDocumentProperties("number of pages").value

HTH

Matt

 

[PHV]

Try this:
ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[nesplb]

Thank you very much!
Exactly what I needed!

Pål Nesteby

PDC-Tangen
Norway

 

[nesplb]

But.....
-Sometimes the code says only 1 page even if I've got 299, and and sometimes it say 4 pages etc. Does anybody know why this happen?

in advance thanx!

Pål Nesteby

PDC-Tangen
Norway

 

[PHV]

You may consider forcing word repagination:
Application.ScreenUpdating = False
ActiveDocument.PrintPreview
ActiveDocument.ClosePrintPreview
Application.ScreenUpdating = True
Debug.Print ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[nesplb]

Sorry....I'm still getting the "wrong answer".
But if I wait for a minute or so, it shows the right number of pages....

Pål Nesteby

PDC-Tangen
Norway

 

[PHV]

Perhaps a SaveAs will update the page count ?
Or a Selection.EndKey Unit:=wdStory ?

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[nesplb]

This is very strange....
I've tried all of your tips but nothing seems to help except from just waiting....hmmm
I could have been waiting if this wasn't an autprocess that is supposed to start and end without any human-touch...



Pål Nesteby

PDC-Tangen
Norway

 

[PHV]

And what about this ?
ActiveDocument.Content.Information(wdNumberOfPagesInDocument)

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[nesplb]

YESSSSSSSSS!!
That's the one! heheh
Thank you very much!
A purple star for you!

Pål Nesteby

PDC-Tangen
Norway