וכשתרצו להחליף בו זמנית מילים קבועים מראש, מספר מילים (דהיינו "או או") למילה אחת תשתמשו עם זה:
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וכנ"ל להוסיף ולשנות למילים הנצרכים...
בהצלחה רבה.