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'hui2993
Hier3263
Cette semaine9541
Ce mois68882
Total depuis 200412747327

21
visiteurs actuellement en ligne

27 janvier 2021