Je suis instit auprès d'enfants déficients intell. Pour les aider à apprendre à lire, je colorie l'arrière plan des sons complexes dans les textes qu'ils lisent selon un code couleur (le on est marron, le ou est rouge, le oi est noir...) Je travaille avec word. C'est très utile pour mes élèves mais très long à préparer. Du coup, j'ai commencé à faire une macro (toujours sous word) qui fonctionne bien mais je voudrais l'améliorer pour simplifier encore plus mon travail.
besoin d'aide n°1 :
la macro que j'ai faite est une succession d'ordres (je ne sais pas comment on dit en informatique). L'ordi balaye le texte en entier puis passe à la suivante... mais à chaque fois je dois cliquer 2 fois sur OK (ce qui n'est pas compliqué en soit mais qui pourrait sans doute être évité). Comment faire pour que la boucle se fasse sur l'intégralité de la macro et non pas par étapes successives ?
Besoin d'aide n°2 :
J'ai un problème avec les om, am, em. Par exemple, il faudrait que l'on détecte "omb" (comme dans tombe), que l'arrière plan de om soit colorié en marron mais que le b reste en blanc. Je ne sais pas comment dissocier les 2 couleurs.
Je sais que ce que j'ai fait est du "bidouillage" mais je m'en suis pas si mal sortie car il y a 8 jours je n'avais jamais entendu parler de macro... Je suppose qu'il existe des tas d'autres façons de faire (qui seraient nettement mieux , je veux bien le croire) mais si quelqu'un pouvait m'aider de manière très simple (ou même modifier l'extrait de ma macro) ce serait vraiment très sympa .
Merci d'avance
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "on"
.Wrap = wdFindAsk
.Format = True
Selection.Find.Execute
Selection.Shading.Texture = wdTextureNone
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = wdColorBrown
End With
While Selection.Find.Execute
Selection.Find.ClearFormatting
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = wdColorBrown
Wend
With Selection.Find
.Text = "ou"
.Wrap = wdFindAsk
.Format = True
Selection.Find.Execute
Selection.Shading.Texture = wdTextureNone
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = wdColorRed
End With
While Selection.Find.Execute
Selection.Find.ClearFormatting
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = wdColorRed
Wend
End Sub