VBA Word: Количество страниц документа

Формулировка задачи:

Всем здравствуйте! Для определения количества страниц активного документа Word, использовал такой код:

Sub DetectNumPages()
    Dim NumPages As Long
    NumPages = ActiveDocument.Range.ComputeStatistics(wdStatisticPages)
    MsgBox NumPages
End Sub

количество страниц определялось корректно, до тех пор пока мне не попался файл, который лежит в приложении. Объясните пожалуйста, почему в этом файле количество страниц определяется неверно?

Решение задачи: «VBA Word: Количество страниц документа»

textual
                            Листинг программы 
                        
                            NumPages = ActiveDocument.ComputeStatistics(wdStatisticPages)