Recherche

 Via une macro :

 

Public Sub nb_pages()
Dim Début As Long, Fin As Long, PageDeb As Integer, PageFin As Integer
Début = Selection.Range.Start
Fin = Selection.Range.End
Selection.Collapse wdCollapseStart
PageDeb = Selection.Information(wdActiveEndPageNumber)
ActiveDocument.Range(Fin, Fin).Select
PageFin = Selection.Information(wdActiveEndPageNumber)
MsgBox "La sélection débute page " & CStr(PageDeb) & ", et finit page " & CStr(PageFin)
ActiveDocument.Range(Début, Fin).Select
End Sub

 

Statistiques

France 72,8% France
Canada 7,8% Canada
États-Unis d'Amérique 3,9% États-Unis d'Amérique

Total:

102

Pays
018295756
Aujourd'hui: 31
Hier: 228
Cette semaine: 1.419
Semaine dernière: 1.699
Ce mois: 259