Recherche dans un document word [VB(A)] - VB/VBA/VBS - Programmation
MarshPosté le 18-11-2003 à 09:12:54
Bonjour Je dois intégerer une fonction s'occupant de rechercher / remplacer des termes directement dans un document rtf par le biais de Word (ceci dans un environnement VB .NET). J'ai déjà ouvert un topic concernant ceci, mais finalement il n'est plus vraiment d'actualité car j'ai à peu près trouvé comment faire -> c'est de l'intégration de code vba ds vb .net. Ce qui me bloque maintenant est je pense un simple pb lié au vba (que je ne connais pas)... Voici mon code :
With oWDoc.Application.ActiveDocument.Content.Find() .Execute(FindText:="HELLO", ReplaceWith:="SALUT", _ Replace:=Word.WdReplace.wdReplaceAll, Format:=True) With .Replacement .ClearFormatting() .Highlight = True End With End With
Le rechercher / remplacer s'effectue sans problème, mais seul le PREMIER terme remplacé est surligné, or j'aimerai que chaque terme ayant été remplacé soit surligné Merci pour vos éventuelles lumières
Message édité par Corbier le 18-11-2003 à 09:13:40
Marsh Posté le 18-11-2003 à 09:12:54
Bonjour
Je dois intégerer une fonction s'occupant de rechercher / remplacer des termes directement dans un document rtf par le biais de Word (ceci dans un environnement VB .NET). J'ai déjà ouvert un topic concernant ceci, mais finalement il n'est plus vraiment d'actualité car j'ai à peu près trouvé comment faire -> c'est de l'intégration de code vba ds vb .net. Ce qui me bloque maintenant est je pense un simple pb lié au vba (que je ne connais pas)... Voici mon code :
With oWDoc.Application.ActiveDocument.Content.Find()
.Execute(FindText:="HELLO", ReplaceWith:="SALUT", _
Replace:=Word.WdReplace.wdReplaceAll, Format:=True)
With .Replacement
.ClearFormatting()
.Highlight = True
End With
End With
Le rechercher / remplacer s'effectue sans problème, mais seul le PREMIER terme remplacé est surligné, or j'aimerai que chaque terme ayant été remplacé soit surligné
Merci pour vos éventuelles lumières
Message édité par Corbier le 18-11-2003 à 09:13:40
---------------
Sans ma barbe, quelle barbe !