[Iska]

скрипт достаточно известный »

Я, например, это чудо впервые вижу.

Если Вы пользуете раннее связывание — Вам нужна ссылка в проекте на библиотеку типов. Если пользуете позднее связывание — не нужна. В первой строке у Вас раннее связывание, во второй — позднее. По поводу «почему-то замена не производится» — имейте в виду, что, если Вы не подключаете библиотеку типов (например, Вы используете только позднее связывание), то Вам надо самостоятельно, «ручками», описывать все используемые константы из библиотеки (wdFindContinue, wdReplaceAll и т.п.). И если бы, как положено, в коде был бы использован оператор Option Explicit, требующий обязательного объявления переменных, Вы бы просто получили ошибку прекомпиляции и сразу поняли бы, в чём проблема. Но, поскольку такового оператора нет, все необъявленные переменные (в том числе и вышеприведённые как бы «константы», а по факту — переменные) при использовании молча инициализируются нулями.

Разбираться более глубоко в данном коде особого интереса не имею, особливо учитывая отсутствие рабочего образца и неизвестного компонента ProgressIndicator.

[axd]

Прилагаю файлы:
скрин при раскоментировании

Код:

' Dim WA As Word.Application, WD As Word.Document: Set WA = New Word.Application '    
'Set WA = CreateObject("Word.Application") ' без подключения библиотеки Word - почему-то замена не производится

и Архив: Дебет.xlsm, 123.dot

установлен office 2010.
макрос работает на 13м офисе, но это не выход т.к. есть свои трудности.

[axd]

Тема. Закрыта.

всем спасибо!