Sub nblignes()
NombreLignes= ActiveDocument.BuiltInDocumentProperties(wdPropertyLines)
MsgBox "Ce document contient " & NombreLignes & " lignes."
End sub

ou bien

Sub nblignes()
NombreLignes= ActiveDocument.ComputeStatistics(wdStatisticsLines)
MsgBox "Ce document contient " & NombreLignes & " lignes."
End sub

 

 

Statistiques

Aujourd'hui1765
Hier1130
Cette semaine1765
Ce mois38167
Total depuis 200410606992

16
visiteurs actuellement en ligne