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'hui1865
Hier1967
Cette semaine5790
Ce mois30205
Total depuis 200410503171

10
visiteurs actuellement en ligne