Macro pour récupérer styles utilisés Word

Bonjour,

J'utilise des styles sous Word.
La zone des styles utilisée apparait sur la gauche mais cette zone n'est pas prévu à l'impression.

Est il possible, via une macro, lors de l'impression, de récupérer chaque style utilisé, pour chaque paragraphe ?

Merci d'avance

Bonjour,

Voici le code de base :

Sub ListStyleParagraph()

Dim Para As Paragraph
For Each Para In ActiveDocument.Paragraphs
    nb = nb + 1
    m$ = m$ & "Paragraphe n°" & Str(nb) & " : " & Para.Style & vbNewLine ' & Para.Style.Description & vbNewLine
Next Para
ActiveDocument.Content.InsertAfter vbNewLine & vbNewLine & m$

End Sub

Amicalement,
Us.

Merci beaucoup, c'est très bien !
Est ce que je peux l'identer directement à côté du paragraphe concerné ? J'en demande beaucoup lol En tout cas c'est très gentil de m'avoir répondu

Bonjour,

Il se trouve que je viens de mettre en ligne une macro Word sur ce site permettant de lister dans un document Word séparé la liste des styles non seulement employés, mais aussi indirectement employés.

Cordialement

H2Fooko