us_30
Messages postés2065Date d'inscriptionlundi 11 avril 2005StatutMembreDernière intervention14 mars 201610 24 janv. 2008 à 15:39
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$
marcoutze
Messages postés2Date d'inscriptionvendredi 1 décembre 2000StatutMembreDernière intervention24 janvier 2008 24 janv. 2008 à 16:37
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
H2Fooko
Messages postés8Date d'inscriptionlundi 6 août 2007StatutMembreDernière intervention22 juillet 2012 26 juil. 2008 à 20:55
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.