اليك الكود اللازم لعمل ذلك
Sub Macro2()
Dim MyFind As String, MyReplac As String
MyFind = InputBox("ضع كلمة البحث", "MyFind")
MyReplac = InputBox("ضع كلمة الإستبدال", "MyReplac")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = MyFind
.Replacement.Text = MyReplac
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute
Selection.Find.Execute Replace:=wdReplaceAll
End Sub