Recherche

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

Statistiques

France 73,9% France
Canada 7,7% Canada
États-Unis d'Amérique 4,1% États-Unis d'Amérique

Total:

94

Pays
018290714
Aujourd'hui: 116
Hier: 306
Cette semaine: 1.791
Semaine dernière: 1.764
Ce mois: 3.291