וכשתרצו להחליף בו זמנית מילים קבועים מראש, מספר מילים (דהיינו "או או") למילה אחת תשתמשו עם זה:
Sub החלפת_כמה_מילים_למילה_אחת()
' ."פורסם על ידי מגדלים ב"מתמחים טופ
arrFind = Array("א", "ב")
For f = 0 To UBound(arrFind)
Selection.Find.Text = arrFind(f)
Selection.Find.Replacement.Text = "להחליף_ב"
Selection.Find.Wrap = wdFindContinue
Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub
וכנ"ל להוסיף ולשנות למילים הנצרכים...
בהצלחה רבה.