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'hui73
Hier1486
Cette semaine8680
Ce mois52699
Total depuis 200413860858

12
visiteurs actuellement en ligne

27 mai 2022