Sub nblignes()
NombreLignes= ActiveDocument.BuiltInDocumentProperties(wdPropertyLines)
MsgBox "Ce document contient " & NombreLignes & " lignes."
End sub
FAQWORD
S'IL N'Y A PAS DE RÉPONSE C'EST QU'IL N'Y A PAS DE QUESTION
(c) 2004 marina mathias
73,9%
France
7,7%
Canada
4,1%
États-Unis d'Amérique