Besoin d'aide pour une instit
Hors ligneFicelle000 Le 11/07/2012 à 11:41 Profil de Ficelle000 Configuration de Ficelle000

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

Vous avez résolu votre problème avec VIC ? Faites-le savoir sur les réseaux sociaux !
Vulgarisation-informatique.com
Cours en informatique & tutoriels