user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

 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

Aujourd'hui499
Hier1325
Cette semaine15075
Ce mois15075
Total depuis 200412839639

8
visiteurs actuellement en ligne

7 mars 2021