Malheureusement, non, la fonction de Recherche (et Remplace) permet de rechercher du texte surligné, mais quelle que soit la couleur. Il n'est en effet 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 :