Hi All,

I use an Script which Finds som words and replace it.

For every Word to replace i use the following code:

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

THe Problem is that i have to replace six words. I can repeat this code
in the script, but the message box "Would you replace: yes/no" appears
for every word. Is there a possibility to replace the words
automativally without any message box?

Thanks for answers