Change a great number of words in word files, with a macro as short as possible.

[Lenrubé]

I use the macro below to correct words in a text.
However I have dozens of words to correct in dozens of files!
How could I use a loop (if possible) to enter two lists of words (the old - the new) in order not to copy paste dozens of small macros such as below ?
( I have to duplicate the macro when the program is too big )
Thanks for your attention and for your help !
Cheers,
Lenrubé


Sub tipee

Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "inaccuratly"
.Replacement.Text = "inaccurately"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "presance"
.Replacement.Text = "presence"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "assment"
.Replacement.Text = "assessment"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

 

[Lenrubé]

Problem solved tonight.
Someone sent me a short macro, using array variable ( or variable array ).
Cheers,

 

[macropod]

See my answer in:

How to avoid Word Macro running too slow and sometimes causing APP collapse?

Every time I ran this macro for a word document with 100 to 150 pages, I need to wait for minutes and sometimes the screen will turn into black. Since the .txt file contains 769 words, how to speed...

stackoverflow.com

 

[Lenrubé]

See my answer in:

How to avoid Word Macro running too slow and sometimes causing APP collapse?

Every time I ran this macro for a word document with 100 to 150 pages, I need to wait for minutes and sometimes the screen will turn into black. Since the .txt file contains 769 words, how to speed...

stackoverflow.com

Thanks ! I'll try the macro very soon!

 

[macropod]

Even shorter code:
https://www.msofficeforums.com/72330-post2.html
https://www.msofficeforums.com/135562-post2.htmll

 

[Lenrubé]

Thanks macropod ! I'll try it tomorrow !