[WD-2007] macro pour mettre texte en surbrillance [Résolu]

[Kikri]

Bonjour,

J'aimerais savoir comment créer une macro qui cherche le crochet ouvrant «[», le sélectionne, cherche le crochet fermé «]» et met le texte inclus en surbrillance.
Ex. [nouveau] et peut-être [existant]
Donc je voudrais mettre en surbrillance : [nouveau] et [existant].

Comment dois-je procéder?

Merci

[Souriane]

Bonjour Kikri,

Voici une petite macro qui devrait faire ce que tu souhaites.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub MaMacro()
'Créée par Souriane - Novembre 2011
 
'Recherche s'il y a un "["
  Do
    Selection.Find.ClearFormatting
      With Selection.Find
        .Text = "["
        .MatchWildcards = False
    End With
    Selection.Find.Execute
 
 
    If Selection.Find.Found = False Then
'Si "[" n'est pas trouvé, alors il ne se passe rien
 
'Mais si un "[" est trouvé, il se passe ceci:
    Else
 
'Le "[" est désélectionné
    Selection.MoveRight Unit:=wdCharacter, Count:=1
'Le mode "sélection" est activé et se rend jusqu'au premier "]" rencontré
    Selection.Extend
    Selection.Extend Character:="]"
'Il désélectionne le ]
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
 
'Met le texte sélectionné en jaune
    Options.DefaultHighlightColorIndex = wdYellow
    Selection.Range.HighlightColorIndex = wdYellow
 
'Désélectionne le texte en jaune et se place après le "]"
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    End If
 
'Reprend le loop pour voir si il y a un autre "[" dans le texte.
  Loop While Selection.Find.Found = True
 
End Sub

Si ça ne fonctionne pas ou si ce n'est pas tout à fait ce que tu souhaitais, n'hésite pas à nous le faire savoir! Merci!

Bonne chance!

Souriane

[Kikri]

Super génial Souriane, ça fonctionne comme un charme.
Merci infiniment.