WIe ermittelt man die Anzahl der Seiten eines Word-Dokumentes ?

Sub Anzahl_Seiten()
    Dim Wordobj As Object
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Set wrdApp = CreateObject("Word.Application")
    Set wrdDoc = wrdApp.Documents.Open("c:\temp\test.doc")
    Anzahl = wrdApp.Selection.Information(wdNumberOfPagesInDocument)
    MsgBox "Anzahl der Seiten: " & Anzahl, vbInformation
    wrdApp.Quit False
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
End Sub