Игорь Столяров писал(а): ↑01 Апрель 2022, 12:13
Не соглашусь ... если использовать современные возможности, то нужно контролировать номер версии пакета.
Не знаю на сколько я вам надоел, но вот вам продолжение истории, можно смеяться!
Итак: вы мне посоветовали заменить
Код: Выделить всё
feqOLE{'Application.ActiveDocument.SaveAs2("'& Clip(Left(Loc:SaveFileName)) &'")'}
на
и я наивно обрадовался, и радостный ходил 1 день, т.к. все как бы заработало, но.....
но потом я перенес программу на другую машину:
- на моей Windows7 и Word14
- на другой Windows7 и Word16 .... и началось все с самого начала .... при открытии WORDa повторно Клашка напрочь "Виснет".
Сообщение: "Данная команда недоступна"
"Методом научного тыка" стал искать где? Убился, замучила она меня так, что уже хотел все бросить эту идею (с передачей данных в WORD) похерить полностью, но Бог есть!
Оказалось, что не может отработать вот эта команда:
Код: Выделить всё
feqOLE{'Application.Selection.Find.Execute("'&clip(Loc:F_Str)&'", , , , , , 1, 1, , "'&clip(Loc:R_Str)&'", 2)'}
! ищем и меняем,(цифра "2" в конце - искать и менять по всему документу)
Это именно эта скотинка при открытом файле в WORDE и при попытке его отредактировать повторно, дает вот это сообщение:
"Данная команда недоступна"
Как бы все ничего... сообщение всего одно и легко закрывается.... но..... но это происходит только тогда если мы ВТОРОЙ открытый WORD не закрываем, а вот если мы его закрываем, то тут начинается самое интересное!!!!
При закрытии WORDa открывается окно
"GetIn Failed"
6 раз с сообщением "Selection"
и 3 раза с сообщением "Application" ...... итого 9 окон! А так как я меняю 25 записей (полей) то открывается 25*9= 225 окон с сообщением об ошибке. ...... и это только если я WORD повторно открыл/закрыл 1 раз. ..... а если не один?
И самое смешное, что оказывается, что ничего не виснет, все работает, просто окон дохрена и их невозможно закрыть мышкой и создается иллюзия что все зависло, а на самом деле все снимается CTR+F4 в течении 10 сек.