count pages

[karin]

how do i count either the number of pages or page breaks in a document using VB

thanks

 

[Greg]

Something like:

Sub Test()
MsgBox ActiveDocument.ComputeStatistics(wdStatisticPages)
End Sub

 

[Greg]

Something like:

Sub Test()
MsgBox ActiveDocument.ComputeStatistics(wdStatisticPages)
End Sub

 

[Jezebel]

activedocument.BuiltInDocumentProperties("Number of pages")