Macro pour passer tout le texte d'une couleur en format "masqué"

Bonjour le Forum !

J’aimerais créer une macro qui passe tout le texte en couleur violette au format « masqué ».
Avec l’enregistreur de macros, j’arrive à créer une macro à base de Rechercher/Remplacer, mais elle n’agit qu’au coup par coup, pas sur l’ensemble du document.
Quelqu’un saurait-il m’aider sur ce coup-là ?

Accessoirement, j'aimerais savoir comment on affiche un document avec les textes masqués et sans les textes masqués...

Merci !!!

Bonjour!

Voici le code de macro :

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
27
28
29
Sub MasquerTexteRouge()
'
    Selection.find.ClearFormatting
 
'Ici on indique la couleur à rechercher.  Moi j'ai indiqué rouge. Changer pour votre couleur
    Selection.find.Font.color = wdColorRed 
    Selection.find.Replacement.ClearFormatting
 
  With Selection.find.Replacement.Font
        .Hidden = True   'C'est ici que ce qui sera trouvé devra être ensuite masqué
        .color = wdColorRed  'La couleur rouge sera maintenu même si le texte sera masqué
    End With
 
 
    With Selection.find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue 'Ici, ça indique de faire le document en entier
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
 
    Selection.find.Execute Replace:=wdReplaceAll
End Sub

Par la suite, si vous voulez afficher à l'écran le texte masqué, il faut afficher les caractères (CTRL + SHIFT + 8). Mais le texte masqué ne peut pas être imprimé à moins d'enlever le formatage masqué.

Bonne chance!

Souriane

Super, merci beaucoup !!!!!!
(et merci pour les annotations didactiques dans le code)