Surligner des lignes commençant par un apostrophe et finisse par un retour à la ligne [A Faire] [Résolu]

[laurentdepibrac]

Bonjour à tous,
J'ai un problème, je dois mettre en couleur verte des lignes d'une vingtaine de documents word qui chacun d'entre eux font une centaine de pages.
Les lignes dont je dois changer la couleur sont des lignes qui commence par le caractère ' et qui finisse par un retour à la ligne.
Help me!!! Que dois-je mettre comme code?? Je n'y arrive pas.

MERCI POUR VOTRE AIDE!

[Heureux-oli]

http://www.developpez.net/forums/sho...d.php?t=327288

Ce post devrais te donner une piste.

[ouskel'n'or]

Sinon, tu peux tester ça

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub PeindreLeTexte()
Dim fin As Boolean
Dim LeMot As String
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .Text = vbCr & "'" 'Le mot cherché est en début de ligne
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Do While Not fin
        fin = Selection.Find.Execute = False
        If Not fin Then
            Selection.EndKey Unit:=wdLine, Extend:=wdExtend
            Selection.Font.Color = wdColorGreen
            Selection.MoveRight Unit:=wdCharacter, Count:=1
        End If
    Loop
End Sub

A+


Désolé, Oli, j'avais qu'à adapter

[laurentdepibrac]

Merci beaucoup, ton code marche impeccable!!!
Tu n'imagines pas le temps que ça me fait gagner!!!
MERCI A TOUS.
Ciao