Comment, en VBA, compter le nombre de pages d'un document?

Détails
Catégorie parente: Word
Catégorie : Environnement
Affichages : 27660

Public Sub test()
Dim NbPages As Integer
ActiveDocument.Bookmarks("\endofdoc").Select
NbPages = Selection.Information(wdActiveEndPageNumber)
End Sub