user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

 

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'hui237
Hier1275
Cette semaine237
Ce mois49082
Total depuis 200413310156

4
visiteurs actuellement en ligne

27 septembre 2021