je souhaite faire une macro sous Word qui fasse une recherche sur un mot et une fois qu'il est trouve, rajoute un truc (ce n'est pas un remplacement).
 
Bref, je voudrais repeter la requete jusqu'a atteindre le document, je ne sais comment ecrire la boucle Do... Loop
 
(ma macro tourne en boucle et je suis oblige de tuer l'application pour en sortir )
 
Merci !

C'est peut etre que ta condition de fin de boucle ne peut jamais etre remplie.

 
poste peut être ta boucle histoire de voir

Je n'osai le demeder.

 
voila  

 
euh... elle est où ta condition d'arret ?

 
ben c'est la le probleme, j'aimerais savoir comment poser comme condition d'arret la fin du document
 

Dans certains basiques, y a  
 
do
 
loop while (condition_qui_fait_continuer)
 
ou
 
do
 
loop until(condition_qui_fait_quitter)
 
voire un exit do en cours de code pour sortir du tourbillon infini.
 
Faudrait savoir ce qui provoquera l'arrêt : fin de texte, de sélection, erreur "système" genre "y a plus de caractères".
 
Si y a moyen de savoir avant entrée ds la boucle la taille (nb de caractères) de la sélection, on peut alors comparer à Compteur ?

tu fais un goto:
 
do
if condition realisé goto sortie
...
loop
 
:sortie

merci les copains, mais justement c'est la condition de sortie que je cherche
 

Si ce n'est pas un remplacement ou est ce que tu veut mettre le "truc".
Est ce qu'il y a plusieurs fois le meme mot à chercher dans ton texte.
Une fois que tu l'as touvé tu met ton compteur à 1 et tu fait ta modif.
Si il y est plusieurs fois tu peut peut etre faire ligne par ligne.
 
ps:La condition d'arret il n'y a que toi qui peut la connaitre.
Mais pour ex si tu arrive à la fin du document et que tu as trouvé tous les exemplaires de ta chaine dans ton document tu peut penser à quitter ta boucle.

 
ma condition d'arret, c'est : une fois que j'ai atteint la fin du document.
La question est : comment le coder dans ma macro ?
 
(j'ai un fichier de 50 pages de cas de tests que je dois numeroter, et je souhaite le faire de facon automatique)

La fonction  Selection.Find.Execute ne retourne pas de valeur de retour ? Pourrait dire : y a plus rien.
 
J'y connais rien, mais Selection.Find.ClearFormatting devrait pas être hors boucle do ?
 
Y a pas une fonction qui permettrait de savoir si fin de document atteinte ? (genre EndOfDocument, ou qq chose du même style).
 
NB : je ne connais pas VBA d'Office (car je l'ai pas, trop cher) => ce ne sont que des suggestions.

 
je connais encore moins que toi
Il existe une fonction EOF, mais ca marche si j'ouvre le document avant au moyen d'une autre fonction, et ca devient compliqué, y a plusieurs modes d'ouverture
 
En fait ce qu'il se passe, c'est que la macro tourne trop bien : une fois arrivée à la fin du document, elle recommence depuis le début, indéfiniment

comme ça sans réfléchir :  
si tu vire ton compteur et que tu remplace le do...loop par un while not (tondocument).eof....Wend
 
 
ça pourrait marcher
dis moi si je me trompe

 
oki, j'essayerai lundi et je te dis ca

 
ca marche pas
ThisDocument.eof n'existe pas
 
c'est de la merde en barre VBA