1 pièce(s) jointe(s)
Mettre en surbrillance des ensembles de mots
Bonjour,
Dans le cadre des cours, je fais des dissertations et il faut que je passe en surbrillance certains type de mots comme des adverbes, des adjectifs et des phrases relatives. Chacun de ses groupes auraient une couleur de surbrillance différente pour rapidement les identifier. Cependant, dans un texte ces différents groupes de mots sont répartis sporadiquement et l'idée est de pouvoir le faire automatiquement sans faire d'erreur ou y passer 20 minutes. J'avais déjà trouvé un premier code qui permet de mettre en surbrillance des termes entre crochets mais je n'ai pas su tweeker le code pour le faire correspondre à des ensembles de mots.
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
40
41
| :
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 |
Vous trouverez en fichier joint un document Word rempli d'adverbes, d’adjectifs et de pronoms relatifs pour que vous puissiez vous tester vos codes. Ce document est la base de données avec laquelle j'imaginais que la macro puisse tourner.
Si vous avez besoin de précisions ou si je n'ai pas été clair, n'hésitez pas à poser vos questions.
Par avance merci,
Atta
