user_mobilelogo

 

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 :

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

Aujourd'hui274
Hier1248
Total depuis 200411354620

29
visiteurs actuellement en ligne