Mise en relief (couleurs) automatique de texte [Résolu]

[legoublin]

Bonjour,
N’étant pas très fort en macro mais ayant toutefois qlqs connaissances en « macro enregistrées », je pense que mon problème (tache répétitive) devrait avoir une solution en VBA ? Je me tourne donc vers vous pour savoir s’il est possible en VBA de griser toutes mes fins de ligne identifiées par un « _ » jusqu'à mon retour chariot ou fin de paragraphe ? Je vous joins un exemple pour plus de clarté.
Cordialement,

Exemple :

Avant :

Liste de livre

Tous contes faits_Blablabla...
Enfin, je peux marcher seule_Tralala...
Petites vies de banquiers ! _Tralala...
Yatagan Tome 3 : L'ombre de Dieu_Blablabla...
Palimpsestes N° 23 : Traduire la cohérence_Blablabla...
L'Homme de cour_Tralala...
Mariage et autres fictions_Tralala...

Après :

Liste de livre

Tous contes faits_Blablabla...
Enfin, je peux marcher seule_Tralala...
Petites vies de banquiers ! _Tralala...
Yatagan Tome 3 : L'ombre de Dieu_Blablabla...
Palimpsestes N° 23 : Traduire la cohérence_Blablabla...
L'Homme de cour_Tralala...
Mariage et autres fictions_Tralala...

J'ai des fichier avec beaucoup de ligne à traiter et un nombre de ligne variable

[Heureux-oli]

Salut,

essaie ce petit morceau de code ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub GriserPartiePhrase()
Dim pAra As Paragraph
 
For Each pAra In ActiveDocument.Paragraphs
pAra.Range.Select
With Selection.Find
    .Text = "_"
    .Forward = True
 
If .Execute Then
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Range.Font.ColorIndex = wdGray25
End If
End With
Next pAra
 
 
 
End Sub

[legoublin]

Bravo et merci encore de votre aide