user_mobilelogo

Word 365: Vous saurez tout !

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

 

En savoir plus.

 Via une macro :

 

Public Sub nb_pages()
Dim Début As Long, Fin As Long, PageDeb As Integer, PageFin As Integer
Début = Selection.Range.Start
Fin = Selection.Range.End
Selection.Collapse wdCollapseStart
PageDeb = Selection.Information(wdActiveEndPageNumber)
ActiveDocument.Range(Fin, Fin).Select
PageFin = Selection.Information(wdActiveEndPageNumber)
MsgBox "La sélection débute page " & CStr(PageDeb) & ", et finit page " & CStr(PageFin)
ActiveDocument.Range(Début, Fin).Select
End Sub

 

Statistiques

Aujourd'hui3211
Hier3355
Cette semaine10010
Ce mois72807
Total depuis 200412591439

18
visiteurs actuellement en ligne

25 novembre 2020