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