Macro Microsoft Word pour la mise en évidence de plusieurs mots
Mon intention est de créer une très basic de macro pour trouver une série de mots et de les mettre en évidence. Malheureusement, je ne sais pas comment le faire plusieurs mots en une seule étape. Par exemple, le code suivant fonctionne:
Sub Macro1()
'
' Macro1 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
With Selection.Find
.Text = "MJ:"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Cependant, si j'ajoute dans un autre .Text =
ligne, alors l' MJ:
est ignoré. Des idées?
OriginalL'auteur Taylor Kline | 2012-02-22
Vous devez vous connecter pour publier un commentaire.
Si vous cherchez seulement pour quelques mots simplement faire plusieurs trouver et remplace dans la même macro permettra d'accomplir ce que vous voulez. Par exemple, les éléments suivants sont mis en évidence en jaune toutes les occurrences de "cible1" et "target2"
Sinon le code suivant vous permettra d'ajouter toutes les conditions à mettre en évidence dans une ligne qui peut être plus facile de travailler avec.
OriginalL'auteur subcortical
J'avais fait la modification suivante. Peut-être pas aussi élégant que dans le tableau. Mais je pensais le long des lignes de l'utilisateur se contente de coller une liste de valeurs dans un champ.
OriginalL'auteur The Saj