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'hui182
Hier2192
Cette semaine9578
Ce mois182
Total depuis 200413935043

4
visiteurs actuellement en ligne

1 juillet 2022