بحث عن كلمة في ملف وررد و استبدالها

السلام عليكم و رحمة الله و بركاته

انا مسوي امس في الاكسس انه يفتح ملف الوورد ، و الامر يعمل بشكل ممتاز

لكن اريده عند فتحه للملف ان يبحث عن كلمة معينه ، و يتم استبدالها بكلمة أخرى.

مثال : ملف الوورد يحتوي على كلمة custmer_name ، اريده ان يبحث عن هذه الكلمة و يستبدلها بكملة اخرى.

استخدمت هذا الكود :

       strFind = "custmer_name"
                    strReplace = "ahmad"
                    .Execute FindText:=strFind, Replace:=wdReplaceAll, ReplaceWith:=strReplace
                    strFind = "Replacement"
                    .Execute FindText:=strFind, Replace:=wdReplaceAll, ReplaceWith:=strReplace
                End With

و هذا ايضا :

 WordApp.Selection.Find.ClearFormatting
  WordApp.Selection.Find.Text = "custmer_name"
  WordApp.Selection.Find.Replacement.Text = "ahmad"
  WordApp.Selection.Find.Forward = True
  WordApp.Selection.Find.MatchAllWordForms = False
  WordApp.Selection.Find.MatchCase = Flase
  WordApp.Selection.Find.MatchWildcards = False
  WordApp.Selection.Find.MatchSoundsLike = False
  WordApp.Selection.Find.MatchWholeWord = False
  WordApp.Selection.Find.MatchFuzzy = False
  WordApp.Selection.Find.Wrap = wdFindContinue
  WordApp.Selection.Find.Format = False

  WordApp.Selection.Find.Execute.Replace = wdReplaceAll

ارجو الافادة