Macro composée de plusieurs instructions et qui s'interrompt après chacune
Résolu
Bonjour,
Je suis amené à corriger des textes assez long.
J'ai créé une macro par l'enregistreur de macro qui remplace les oe par des œ. Il s'agit d'un lot de commandes répétitif avec chaque fois un mot différent à corriger.
Exemple:
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "coeur"
.Replacement.Text = "cœur"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
J'ai pour l'instant une vingtaine de commandes comme celle-ci qui se suivent.
La macro fonctionne bien, mais après chaque petit "module" comme ci-dessus, la macro s'interrompt et me dit : x mots corrigés, faut-il recommencer depuis le début? Et ainsi de suite jusqu'à la fin de la macro.
Quelqu'un aurait-il une idée pour que la macro s'exécute sans interruption?
Merci d'avance,
Donpopo
Je suis amené à corriger des textes assez long.
J'ai créé une macro par l'enregistreur de macro qui remplace les oe par des œ. Il s'agit d'un lot de commandes répétitif avec chaque fois un mot différent à corriger.
Exemple:
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "coeur"
.Replacement.Text = "cœur"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
J'ai pour l'instant une vingtaine de commandes comme celle-ci qui se suivent.
La macro fonctionne bien, mais après chaque petit "module" comme ci-dessus, la macro s'interrompt et me dit : x mots corrigés, faut-il recommencer depuis le début? Et ainsi de suite jusqu'à la fin de la macro.
Quelqu'un aurait-il une idée pour que la macro s'exécute sans interruption?
Merci d'avance,
Donpopo
Configuration: Windows / Firefox 73.0
