Number of Pages

[Zig999]

Hi,

I need to get the number of pages of a documents list.
I'm trying to use this two properties:

ActiveDocument.BuiltInDocumentProperties("Number of pages")
ActiveDocument.Content.Information(wdActiveEndAdjustedPageNumber)

The problem is that in a loop, with large filesize documents, it is not showing the correct number of pages. I think the problem is that during the loop, Word is not totally loading the document and show the current number of pages (incomplete in this case).

Any ideas of how could I get this?

 

[Zig999]

The code is something like this:

Sub Compare()
    Dim pathName As String, fileName As String
    pathName = "C:\convert\*.*"
    fileName = Dir$(pathName, 0)
    
    ChangeFileOpenDirectory "C:\convert\"
    Do While fileName <> ""
        
        
    Documents.Open fileName:=fileName, ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
        
        
        MsgBox ActiveDocument.BuiltInDocumentProperties("Number of pages")
        MsgBox ActiveDocument.ComputeStatistics(wdStatisticPages)
        
        ActiveDocument.Close
        fileName = Dir$()
    Loop
    
End Sub

For example, a document with 51 pages show me it has only 3 pages. A document with 5 pages but with a lot of images (large filesize) show me only 2 pages.

 

[fumei]

You are likely correct. Word does not know the number of pages in a document. Word derives page layout via the printer driver. If the file is opened by Word using another printer driver, the pagination may be different, therefore the page numbers could be different. Page numbers is not a value that is stored in the file. It must repaginate the document when it opens it.

I think the instruction to get the page number is actioned before Word has a chance to fully repaginate. Put a wait instruction in.

Gerry

 

[Zig999]

Thanks for the answer Gerry.
I´ll try that...

Zig