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'hui1452
Hier2006
Cette semaine7456
Ce mois49958
Total depuis 200413208577

27
visiteurs actuellement en ligne

29 juillet 2021