Word'de sayfa sayısı

[mbagcaci]

dökümanın sayfa sayısını bulan bir macroya ihtiyacım var. Yardımcı olursanız sevinirim.

 

[hamitcan]

Sub sayfa_sayisi()
Dim objPages As Pages
Set objPage = ActiveDocument. _
    ActiveWindow.Panes(1).Pages
MsgBox objPage.Count
End Sub