Malheureusement, non, la fonction de Recherche (et Remplace) permet de rechercher du texte surligné, mais peu importe la couleur. Il n'est pas possible de spécifier la couleur. Donc difficile de retrouver ses 30 mots surlignés en jaune parmi tous les mots surlignés de couleur différente.
Avec la macro suivante, vous pourrez appliquer une action sur tout texte surligné en en précisant la couleur :
Sub Surligne()
'macro écrite par Heureux-Oli
Dim wd
For Each wd In ActiveDocument.Words
wd.Select
If Selection.Range.HighlightColorIndex = wdYellow Then MsgBox "Ok " & Selection.Range.Text
Next wd
End Sub
Cette macro va s'arrêter sur chaque mot surligné de jaune, affichera dans une boîte le message "OK" ainsi que le mot surligné. Ce n'est qu'un exemple. On peut bien entendu appliquer une autre action, comme par exemple mettre ces mots en gras :
Sub Surligne()
Dim wd
For Each wd In ActiveDocument.Words
If wd.HighlightColorIndex = wdYellow Then
wd.Bold = True
End If
Next wd
End Sub
Correspondance des couleurs à chercher :
Rouge | wdRed |
Turquoise | wdTurquoise |
Vert Brillant | wdBrightGreen |
Bleu | wdBlue |
Bleu foncé | wdDarkBlue |
Rose | wdPink |
Gris clair | wdGray25 |
Gris | wdGray50 |
Bleu vert | wdTeal |
Rouge foncé | wdDarkRed |
Violet | wdViolet |
Marron clair | wdDarkYellow |
Vert | wdGreen |
Noir | wdBlack |