Recherche

 Cette macro parcourt tout le document et donne par message le style du premier mot de chaque paragraphe.

Sub BalaieParagraphe()
'macro écrite par Geo
Dim Paragraphe As Paragraph
For Each Paragraphe In ActiveDocument.Paragraphs
Set mot = Paragraphe.Range.Words(1)
MsgBox mot.Style
Next
End Sub

Statistiques

France 72,6% France
Canada 7,2% Canada
Belgique 4,0% Belgique

Total:

123

Pays
018328276
Aujourd'hui: 19
Hier: 427
Cette semaine: 855
Semaine dernière: 2.756
Ce mois: 3.994