cs_Cedric92
Messages postés4Date d'inscriptionlundi 30 novembre 2009StatutMembreDernière intervention 7 décembre 2009 7 déc. 2009 à 16:18
Merci Loulou69. Cela fonctionne!
Si tu devais faire une recherche de tous les mots par ex. "Pin" dans un document texte, comment fais-tu pour continuer la recherche et traiter les autres mots "Pin" apres que le premier mot eu été trouvé ?
Mon problème est que le code (ci-joint un ex.) ne traite que le premier mot "Pin" dans le document et ne traite pas les autres...Je ne sais pas comment lui dire de continuer apres la première recherche...? Dois-je insere le ".find" dans un "For each" ?
cs_loulou69
Messages postés672Date d'inscriptionmercredi 22 janvier 2003StatutMembreDernière intervention 2 juin 20161 7 déc. 2009 à 17:18
Dans ton exemple le groupe de ligne
"With selection.Find" jusqu'a "End With"
Prépare les parametres de recherche
Ensuite il suffit de remplacer le "Selection.FInd.Execute" par une boucle
While Selection.Find.Execute 'la selection se deplacera au prochain mot trouvé
Selection.TypeText Text:="OK"
Wend Attention le selection.TypeText prendra la forme du paragraphe de début de document mais pas forcément la forme de la zone dans laquelle le texte est trouvé : mais je n'ai pas de solution si tu la trouve penses à me dire comment tu fais dans ce cas. (A moi de te demander)