вызов процедуры Word из Excell

[Tiolan]

Образовалась проблема. Есть мелкая программка в Екселе, которая в Ворд выкидывает отчет. работала исправно, пока админ не поставил АктивДиректори. После этого вот на этом месте

Word.Find.Content.Find.Replacement.ClearFormatting

появилась ошибка :

"Run-time error -2147023151(800706d1)
Automation error
Номер процедуры выходит за допустимые границы"


Поскольку эти две вещи малосвязаны, подозреваю, что збилась где-то какая-то настройка, и теперь ексель чего-то не видит или что-то вроде того...

Подскажите, где собака зарыта!

п.с. поиском рыл, гуглом рыл, ничего не нарыл...

[viter.alex]

Какая-то абсурдная строка. Замени её на такие:

Word.Content.Find.ClearFormatting
Word.Content.Find.Replacement.ClearFormatting

[Tiolan]

Виноват) хотел упростить а вышло наоборот... вот реальный кусок кода

...
Dim aw As Word.Document

Set aw = objWrd.Documents.Add(tmplt)
     
     Dim sel As Word.Find
     Set sel = aw.Content.Find

     With sel
 
     For i = 1 To 50
        .ClearFormatting
        .Replacement.ClearFormatting     ' ВОТ ТУТ И ВЫСКАКИВАЕТ ОШИБКА
            .Text = "\=" & i & "=\"
            .Replacement.Text = tNewLine.Cells(i).Text
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    Next i
    End With
...

err пишет, что "Replacement" failed.
Орфографических ошибок нет, проверял.