Salut
1. Créé un fichier texte nommé mots.txt dans lequel tu mets tous tes mots, un sur chaque ligne :
Par exemple :
arbre
camion
chaussure
table
nutella
bouteille
écran
clavier
fenêtre
route
épouse
crayon
boîte
serviette
pomme
sirop
imprimante
xxx
A la fin de ton fichier texte, ajoutes le mot "xxx". C'est important.
2. Créé cette macro :
Variable <compteur>;0;Numerique;
Variable <mot>;xxx;Alpha;
Label <Début>
Calcul évolué <compteur>=<compteur>+1
Lire E:\Macros\mots.txt;<mot>;<compteur>;
Examine <mot>;<>;xxx;
Goto <Coller le texte>
Goto <Faire autre chose>
Label <Coller le texte>
Move Mouse 239;244;Direct;;
Click Left click;
Type Special BAS;
Type Special ENTREE;
Type <mot>
Pause 00:00:01
Goto <Début>
Label <Faire autre chose>
...
3. Explications :
On fait un petit calcul évolué sur <compteur> pour que cette variable s'incrémente d'un en un à chaque boucle (ce qui nous permettra d'utiliser cette valeur (le chiffre 1, 2, 3, ...) dans la fonction "Lire").
Ensuite on lit le fichier mot.txt à la ligne <compteur> (au départ, cette variable vaut "1", donc la fonction LIRE ira à la ligne 1). Mais aux boucles suivantes, la variable <compteur> augmentera d'un en un, donc la fonction LIRE, lira la ligne 2, puis la ligne 3, etc...
La macro continue en vérifiant le contenu de la variable <mot>. Si elle contient "xxx", alors on est à la fin du fichier. Donc on fait un saut sur le label <Faire autre chose>. Mais si la variable <mot> contient autre chose que "xxx" alors on continue la macro sur <Coller le texte>.
Tout le block Move Mouse + Click Left click + Type Special BAS + Type Special ENTREE tu peux le modifier pour ton propre cas. Je ne sais pas où tu veux coller le texte. Peut-être que chez toi, un simple Type Special BAS + Type Special ENTREE suffiront. (ou un simple Move Mouse + left click).
Ensuite, avec Type <mot>, on colle le mot qui était en mémoire.
On finit avec un Goto <Début> pour relancer la boucle.
