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







| Aujourd'hui | 861 |
| Hier | 1163 |
| Cette semaine | 11795 |
| Ce mois-ci | 7635 |
| Depuis janvier 2004 | 2856749 |
Nous avons 100 invités et aucun membre en ligne