Господа, здравствуйте.

Есть код выброса данных в ворд по принципу нахождения куска текста.
Когда то ПЕНСИОНЕРКА помогла, за что еще раз ей спасибо.

          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

но проблему не решил
ошибка
5833
An error occurred while saving undo information
В англ не силен, с транслейтом - Ошибка при сохранении отменить информацию

Кто нибудь сможет подсказать, что не так?

http://www.sql.ru/forum/1272673/eksport-v-word