user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

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

Statistiques

Aujourd'hui120
Hier1230
Cette semaine14717
Ce mois66524
Total depuis 200412823288

4
visiteurs actuellement en ligne

28 février 2021