Boris26rus, проблема к запросу к рабочей книге не имеет отношения. Слишком длинная строка («por1») для использования в диалоге поиска и замены:
Код:
oSel.Find.Execute "por1" ,,,,,,,,,por1 ,wdReplaceAll
— вижу, Вы так и не добавили предикат «DISTINCT» в запрос.
Если добавить — то следующей ошибкой будет «Несоответствие типа» в:
Код:
oSel.Find.Execute "raschet" ,,,,,,,,,raschet ,wdReplaceAll
поскольку переменная «raschet» оказывается равна «Null».
