Set App = CreateObject("Word.Application") 
'                app.Visible = True
          App.Documents.Add OpenFiles
          Set odoc = App.ActiveDocument
          With App
              ' присваивание значений
              j = 0
              Do While j < i ' настройка форматирование выделяемого и редактируемого куска
                  .Selection.Find.ClearFormatting
                  .Selection.Find.Replacement.ClearFormatting
                  With .Selection.Find.Replacement
                      .Font.Color = 0
                  End With
                  With .Selection.Find
'                        Debug.Print xm(j), ym(j)
                      .Text = xm(j)
                      If ym(j) = " - " Then
                          .Replacement.Text = " "
                      Else
                          .Replacement.Text = ym(j)
                      End If
                      .Wrap = 1
                      .Format = True
                      .MatchCase = False
                      .MatchWholeWord = False
                      .MatchWildcards = False
                      .MatchSoundsLike = False
                      .MatchAllWordForms = False
                  End With
'                  .Selection.Find.Execute Replace:=2  сразу было так
'                  If .Selection.Find.Execute() = True Then  - вычитал на просторах про проверку перед заменой

'                 вылетает здесь
                  If .Selection.Find.Execute() = True Then .Selection.Find.Execute Replace:=2
' Replace=wdReplaceAll=2 - заменять все найденные
                  j = j + 1
              Loop
              App.Selection.HomeKey Unit:=6
              DoEvents
          End With

.Selection.Find.Execute Replace:=2

If .Selection.Find.Execute() = True Then .Selection.Find.Execute Replace:=2

820       With App
              ' присваивание значений
830           j = 0
840           Do While j < i '
              ''настройка форматирование выделяемого и редактируемого куска
850               .Selection.Find.ClearFormatting
860               .Selection.Find.Replacement.ClearFormatting
870               With .Selection.Find.Replacement
880                   .Font.Color = 0
'                            .Font.Bold = True
890               End With
900               With .Selection.Find
                  '' если вы ошиблись в имени закладки, просто не проходит замена
'                        Debug.Print xm(j), ym(j)
910                   .Text = xm(j)
920                   If ym(j) = " - " Then
930                       .Replacement.Text = " "
940                   Else
950                       .Replacement.Text = ym(j)
960                   End If
970                   .Wrap = 1
980                   .Format = True
990                   .MatchCase = False
1000                  .MatchWholeWord = False
1010                  .MatchWildcards = False
1020                  .MatchSoundsLike = False
1030                  .MatchAllWordForms = False
1040              End With
1050              If .Selection.Find.Execute() = True Then .Selection.Find.Execute Replace:=2
' Replace=wdReplaceAll=2 - заменять все найденные
1060              j = j + 1
1070          Loop
              ' Move the cursor to the top of the document. в начало документа
1080          App.Selection.HomeKey Unit:=6
1090          DoEvents
              ' Turn hourglass off.
'                    Screen.MousePointer = 0
1100      End With