Demande correction macro word

FVR812 Messages postés 109 Date d'inscription   Statut Membre Dernière intervention   -  
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour, SVP pourquoi ma macro coince t elle ?
la ligne
For Each mot As String In lesMots
apparaît en rouge et une fenêtre m'affiche erreur de compilation 
ub hdja()

   Dim lesMots As Variant
    
   lesMots = Array("handicap", "invalid", "infirm", "dys", "incap", "accessib", "accé", "accè", "autist", "para", "amnésie", "appareil", "besoin", "educ", "particulier", "comport", "discrimin", "emotion", "epiliepsie", "estime", "soi", "person", "représent", "fonction", "execut", "cognit", "audit", "vis", "situation", "communic", "langage", "corp", "perte", "moteur", "exclu", "retard", "scolaire", "inclu", "exclu", "parole", "geste", "poly", "pluri", "représent", "sensoriel", "psy", "sentiment", "trouble", "sensibili", "harcel", "potent", "viol")
   For Each mot As String In lesMots
        Remplacer mot
   Next mot
End Sub

Sub Remplacer(LeTexte As String)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = wdColorRed
    With Selection.Find
        .Text = LeTexte
        .Replacement.Text = LeTexte
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
A voir également:

4 réponses

Réponse 1 / 4
FVR812 Messages postés 109 Date d'inscription   Statut Membre Dernière intervention   2
 
J'ai ressayé en faisant 2 fois lesMots=Array(... et divisant ma quantité de mots en 2 et ça marche, mais bon comme je ne fais qu'appliquer une macro que l'un d'entre vous m'avait faite, je ne sais pas trop pourquoi. Merci quand même
0
Réponse 2 / 4
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Juste au passage, il semble que votre macro n'est pas complète,,.. ! Alors pas possible d'en faire plus.
0
Réponse 3 / 4
m@rina Messages postés 23882 Date d'inscription   Statut Contributeur Dernière intervention   11 464
 
Bonjour,

J'ai une solution plus souple, ici :
https://faqword.com/index.php/word/10-mise-en-forme/1182-comment-en-une-seule-operation-appliquer-un-format-particulier-a-plusieurs-expressions-dissemines-dans-un-document

N'hésitez pas à télécharger l'exemple.

m@rina
0
Réponse 4 / 4
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour FVR812,
Je vous propose de modifier deux parties de votre code: 
 For Each mot As String In lesMots
renmplacer par 
 For Each mot  In lesMots


ET 
Sub Remplacer(LeTexte As String)
remplacer par 
Sub Remplacer(ByVal LeTexte As String)
0