Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub NombrePagesDansDocWord()
Dim wdApp As Word.Application, wdDoc, nbPages As Long
    Set wdApp = CreateObject("word.application")    'ouvre une session Word
    Set wdDoc = wdApp.Documents.Open("D:\Doc\WordDoc.doc")    'ouvre le document Word
    wdApp.Selection.EndKey Unit:=wdStory
    nbPages = wdApp.Selection.Information(wdActiveEndPageNumber)
    wdDoc.Close
    wdApp.Quit
    Set wdDoc = Nothing
    Set wdApp = Nothing
    MsgBox nbPages
End Sub