Macro MS Word : comment changer les surlignages d'une couleur spécifique à une autre - à l'intérieur du texte sélectionné ?

Essayez avec les modifications suivantes :

Sub SwitchHighlightsColor()
    Dim r As Range
    Set r = Application.Selection.Range

    With r.Find
        .Highlight = True

        Do While .Execute(FindText:="") And r.InRange(Application.Selection.Range)
            If r.HighlightColorIndex = wdYellow Then   ' Highlight color you want to change
                r.HighlightColorIndex = wdRed          ' the new Highlight color you want to have
                r.Collapse 0
            End If
        Loop
    End With
End Sub

EDIT :

Ce code alternatif fonctionne sur une base par lettre, plutôt que par mot. En tant que tel, il devrait changer toutes les lettres avec un surlignage à la couleur correcte. Il sera cependant difficile à annuler, car vous devrez annuler chaque lettre individuellement au lieu de le faire en une seule fois.

Sub SwitchHighlightsColorPerLetter()
    Dim r As Range
    Set r = Application.Selection.Range

    With r.Find
        .Highlight = True

        Do While .Execute(FindText:="") And r.InRange(Application.Selection.Range)
            For Each x In r.Characters
                If x.HighlightColorIndex = wdYellow Then   ' Highlight color you want to change
                    x.HighlightColorIndex = wdRed          ' the new Highlight color you want to have
                    x.Collapse 0
                End If
            Next
        Loop
    End With
End Sub