Comment écrire une macro qui parcourt tous les paragraphes pour savoir si le premier mot de chaque paragraphe a un certain style?

Détails
Catégorie parente: Word
Catégorie : Mise en forme
Affichages : 14854

 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