Замена слов в Ворде из таблицы Эксель - VBA

Формулировка задачи:

Доброго времени суток! Не могу разобраться как заменить список слов в ворд файлах. У меня есть папка с несколькими вордовскими файлами, там присутствуют список иностранных аббревиатур, мне надо этим аббревиатуры перевести на русский. Сопоставление англ.к рус находится на втором листе, а список документов на первом листе. Пробовал записать макрос в Ворде и перемести его в Эксель,. В итоге ничего не получилось. Мне кажется что это очень просто, но даже не получается переключиться с окна экселя на окно Ворда. подскажите пожалуйста!

Решение задачи: «Замена слов в Ворде из таблицы Эксель»

textual
                            Листинг программы 
                        

                            Sub zamena()
Dim objDoc As New Word.Application
Dim zpath
zpath = Excel.ActiveWorkbook.Path & "\"
''Workbooks("NameList.xlsm").Activate
Workbooks("forforum.xlsm").Activate
 
 lastdoc = Worksheets("top1").Cells(Rows.Count, 1).End(xlUp).Row
Debug.Print lastdoc
    For i = 2 To lastdoc
        puti = zpath & Cells(i, 1)
        If Len(Cells(i, 1)) > 0 Then
        Debug.Print puti
        objDoc.Visible = True
  '''''''''''''''''''''''''''''''''''''''''''
        objDoc.Documents.Open puti
        objDoc.ActiveDocument.Select
        
  ''''''''''''''''''''''''''''''''''''
              objDoc.Selection.Find.ClearFormatting
              objDoc.Selection.Find.Replacement.ClearFormatting
                With objDoc.Selection.Find
                    .Text = "WM3"
                    .Replacement.Text = "Маяк3"
                    ''.Forward = True
                    ''.Wrap = wdFindContinue
                    .Format = False
                    .MatchCase = False
                    .MatchWholeWord = False
                    .MatchWildcards = False
                    .MatchSoundsLike = False
                    .MatchAllWordForms = False
                End With
                objDoc.Selection.Find.Execute Replace:=2
                objDoc.ActiveDocument.Save
                objDoc.ActiveDocument.Close
    End If
    Next i
    objDoc.Application.Quit
End Sub
                        