Discussion :

[rborer]

Bonjour,

J'ai besoin de faire une macro me permettant de parcourir l'ensemble d'un document puis, en fonction du style du paragraphe courant (Heading1, ...), de lui appliquer certaines modifications. J'ai trouvé dans la FAQ le code nécessaire pour le parcours des paragraphes, mais je n'arrive pas à trouver d'informations sur les styles.

Est-ce que quelqu'un aurait une bonne documentation à me proposer, ou alors saurait comment procéder ?

Merci d'avance

P.S: le code que j'utilise:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Parcours()
 
    Set myContenu = ActiveDocument.Content
 
    For Each Cible In ActiveDocument.Paragraphs
        Cible.Range.Select
 
        If Cible.Style = wdStyleHeading1 Then ' Marche pas!
            MsgBox "Style Head1 " + Cible.Range.Words(1)
        End If
 
    Next Cible
End Sub

[Heureux-oli]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub styleTest()
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
para.Range.Select
    If Selection.Range.style = "Heading 1" Then
        MsgBox "Titre 1 pour  : " & Selection.Words(1)
    End If
 
Next para
 
End Sub

[rborer]

Merci beaucoup pour la réponse rapide et concise, c'est exactement ce que j'avais besoin!