Rechercher remplacer highlight

cs_alca1 Messages postés 2 Date d'inscription jeudi 28 octobre 2010 Statut Membre Dernière intervention 12 septembre 2011 - 6 sept. 2011 à 18:09
cs_alca1 Messages postés 2 Date d'inscription jeudi 28 octobre 2010 Statut Membre Dernière intervention 12 septembre 2011 - 12 sept. 2011 à 12:29
J'ai un ploblème de chercher/remplacer :
Dans excel, j'ouvre différent fichiers Work et fait des chercher/remplacer. Le texte est correctement remplacer, mais pas moyen de surligner le texte remplacer.

Mon code:


'----- Init Tag Counter -----
For iCpt2 = 1 To iLenTable Step 1
'----- Replace Tag in document -----
WordApp.Selection.WholeStory
WordApp.Selection.Find.ClearFormatting
WordApp.Selection.Find.Replacement.ClearFormatting
WordApp.Selection.Find.Replacement.Highlight = True

With WordApp.Selection.Find
.Text = SourceTab(iCpt2)
.Replacement.Text = ReplaceTab(iCpt2)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
WordApp.Selection.Find.Execute Replace:=wdReplaceAll


'----- Increase Tag counter -----
Next iCpt2




Merci de votre aide.

1 réponse

cs_alca1 Messages postés 2 Date d'inscription jeudi 28 octobre 2010 Statut Membre Dernière intervention 12 septembre 2011
12 sept. 2011 à 12:29
Personne pour m'aider!!!!
0