Discussion :

[jeanluc0]

Bonjour forum,

Grâce à une VBA, je tente de rehausser certains mots d'un très long document. Le surlignage en jaune fonctionne bien mais celui en gris est absent. Quelqu'un a une réponse? Se peut-il que le gris ne soit pas permis.
Quelles sont les coulers permises?

Code :

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

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
27
28
29
30
31
32
33
34
35
 Options.DefaultHighlightColorIndex = wdYellow
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True
    With Selection.Find
        .Text = "WATCH FOR:"
        .Replacement.Text = "WATCH FOR:"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Options.DefaultHighlightColorIndex = wdGray
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True
    With Selection.Find
        .Text = "=NEW="
        .Replacement.Text = "=NEW="
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Merci pour vos réponses
Jean-Luc

[Heureux-oli]

Salut,

Essaie avec wdGray25 ou wdGray50.

[jeanluc0]

Bravo! Ça fonsctionne bien

Merci!
JL