Rechercher et remplacer des expressions dans un doc word
momouiz
-
momouiz Messages postés 35 Statut Membre -
momouiz Messages postés 35 Statut Membre -
salut tout le monde,
voila je suis novice en vb, et je cherche à construire une fonction de recherche et de remplacement dans un doc word que j'aurais placé en paramétre:
je sais qu'il y a : With Selection.Find
.ClearFormatting
.Highlight = True
.Forward = True
.Text = rech
.Execute
Debug.Print .Found
mais je ne sais pas comment utiliser celles-ci
Si l'un de vous avait un exemple ou encore une suggestion merci
voila je suis novice en vb, et je cherche à construire une fonction de recherche et de remplacement dans un doc word que j'aurais placé en paramétre:
je sais qu'il y a : With Selection.Find
.ClearFormatting
.Highlight = True
.Forward = True
.Text = rech
.Execute
Debug.Print .Found
mais je ne sais pas comment utiliser celles-ci
Si l'un de vous avait un exemple ou encore une suggestion merci
2 réponses
-
D'après m@rina :
Set myRange = ActiveDocument.Content With myRange.Find .ClearFormatting .Replacement.ClearFormatting .Text = "premier texte" .Replacement.Text = "deuxième texte" .Execute Replace:=wdReplaceAll ' peut être la raison End With
Pour voir l'original :
https://faqword.com/index.php/word/faq-word/vba-solutions/489-je-souhaite-modifier-un-mot-particulier-se-trouvant-dans-un-grand-nombre-de-documents -
excellent merci à tous c'est vraiment le meilleur des forums, en fait pour la solution mon debug.print n'etait pas valable sur ma version d'excel merci patrick.
