Discussion :

[IgnirDteacH]

Bonjour à tous,

J'ai un document word qui fait plusieurs pages sur lequel il y a du texte en noir, rouge et bleu.
En plus de ça, il y a sur le document des balises (textes entre crochet qui servent à récupérer automatiquement les données d'une autre application) qui sont en blanc pour rester invisibles.

J'aimerai pouvoir rendre tout le texte de mon document noir SAUF les balises qui doivent rester en blanc.
Afin de simplifier au maximum la tâche (car il y aura un grand nombre de documents similaires à traiter), j'aimerai pouvoir sélectionner en une seule fois tout le document sauf le texte qui est entre crochet (y compris les crochets). Je n'aurai ensuite plus qu'à rendre toute la sélection noire.

Je joins un doc exemple (le vrai est beaucoup plus long) pour illustrer la situation.

N'hésitez pas à me demander plus de détails si je n'ai pas été assez clair.

En vous remerciant d'avance pour votre aide

[hyperion13]

Salut
Une solution

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub ChangerCouleurTexte()
Application.ScreenUpdating = False
With ActiveDocument.Range
    With .Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Font.Color = RGB(0, 0, 255) ' bleu
        .Replacement.Font.Color = RGB(0, 0, 0) 'noir
        .Execute Replace:=wdReplaceAll
    End With
    With .Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Font.Color = RGB(255, 0, 0) ' rouge
        .Replacement.Font.Color = RGB(0, 0, 0) 'noir
        .Execute Replace:=wdReplaceAll
    End With
End With
Application.ScreenUpdating = True
End Sub

[IgnirDteacH]

Bonjour,

Merci pour la réponse, ça fonctionne parfaitement !