[WD-2003] Colorier un texte entre 2 caractères

[iveli]

Bonsoir,

Pouvez-vous m’aider à faire une macro qui à partir d’un caractère de début déterminé et d’un caractère de fin déterminé change la couleur du texte entre ses 2 caractères sur l’ensemble d’un document.

Exemple :

Texte1 (essai) texte2 (mettre) texte
(en) texte (vert)

Résultat attendu :

Texte1 (essai) texte2 (mettre) texte
(en) texte (vert)

J’ai trouvé une macro sur le forum mais elle met tout en vert à partir du 1er caractère défini et le dernier caractère du texte. :

Texte1 (essai) texte2 (mettre) texte
(en) texte (vert)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub SelectionDunTextEntreBalises()
    Selection.HomeKey unit:=wdStory
    Do While Not fin
        With Selection
            With .Find
                .Text = "("
                .Execute
                .Forward = True
                fin = .Found = False
            End With
            .ExtendMode = True
            If Not fin Then
                With .Find
                    .Text = ")"
                    .Forward = True
                   .Execute
                End With
                Selection.Find.Execute
                Selection.Font.Color = wdColorGreen 
                Selection.Font.Bold = wdColorGreen 
                .ExtendMode = False
                .MoveRight unit:=wdWord, Count:=1
            End If
        End With
    Loop
End Sub

Merci d’avance.

[Heureux-oli]

Salut,

Je pense que la méthode extend dans la recherche ne va pas conduire au résultat souhaité.

http://word.developpez.com/faq/index...rs_PlageSignet

Tu places le premier signet pour le premier caractère et le second signet pour le second caractère.

[Sepia]

Salut Iveli,

Word te permet de le faire avec un seul rechercher/remplacer car Word te permet de retrouver tout le texte entre une parenthèse ouvrante et une fermante et de le remplacer par... lui-même mais de le faire passer en couleur verte (hue, ça marche aussi en rouge ). Regarde ce tutoriel sur le rechercher/remplacer dans Word, dans la partie "utilisation des caractères génériques".

Si tu as besoin de plus d'infos, n'hésite pas, on peut t'aider (mais on ne fera pas à ta place ).

@+

[iveli]

Envoyé par Sepia

Salut Iveli,

Word te permet de le faire avec un seul rechercher/remplacer car Word te permet de retrouver tout le texte entre une parenthèse ouvrante et une fermante et de le remplacer par... lui-même mais de le faire passer en couleur verte (hue, ça marche aussi en rouge ). Regarde ce tutoriel sur le rechercher/remplacer dans Word, dans la partie "utilisation des caractères génériques".

Si tu as besoin de plus d'infos, n'hésite pas, on peut t'aider (mais on ne fera pas à ta place ).

@+

J'ai fait des essais, je n'y arrive pas ce n'est pas intuitif.

[iveli]

Voici une macro qui fonctionne:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Parenthes()
Selection.HomeKey unit:=wdStory
ScreenUpdating = False
With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Font.Bold = True
    .Replacement.Font.Color = wdColorGreen
    .MatchWildcards = True
    .Text = "(\(*\))"
    .Forward = True
    .Execute Replace:=wdReplaceAll
End With
 
End Sub

[Sepia]

Salut iveli,

. N'oublie pas de cliquer sur pour indiquer qu'une réponse existe (positive ou négative).

@+