Discussion :

[bruxmu]

Bonjour Forum,

J'ai besoin d'une macro qui passe en bleu tout texte en rouge.

J'ai donc créé une macro en enregistrant mes actions (ci-dessous).
Mais quand je l'exécute, il ne se passe rien...
Où est-ce que j'ai faux ?

Merci pour votre aide !

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
Sub Format_Police_Remplacer_Rouge_par_bleu()
'
' Format_Police_Remplacer_Rouge_par_bleu Macro
' Macro enregistrée le 23/01/2013 par B
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "*"
        .Replacement.Text = "*"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[QuestVba]

Bonjour

essaie ceci, c'est assez court; il change tout texte de couleur rouge

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Couleur()
 
Dim Plage As Object, Wrd As Object
 
Set Plage = ActiveDocument.Content.Words
 
For Each Wrd In Plage
    If Wrd.Font.Color = wdColorRed Then _
    Wrd.Font.Color = wdColorBlue
Next Wrd
 
End Sub

[bruxmu]

Ça marche, merci !!!

(sur mon ordi, qui n'est plus tout jeune, c'est nettement plus lent que le simple rechercher/remplacer de Word).


As-tu une idée de la raison pour laquelle ma macro ne marche pas ?

[QuestVba]

Salut
voilà pour toi
1. il faut spécifier la couleur de départ et celle d'arrivée
2. le texte, c'est "" et pas "*"

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
Selection.Find.ClearFormatting
Selection.Find.Font.Color =wdColorRed
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Color = wdColorBlue
With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

[Paul D.]