Проблема с выполененем макроса

[garik64]

Доброго времени суток!

Написал макрос. Работает без проблем. Отослал другим людям для обкатки и вылавливания блох. И получаю принтскрин с ошибкой.

В чём может быть проблема? У обоих стоит Word 2003, но тот, у кого выскочила ошибка, пишет, что не ставил весь Офис, только ворд и эксель. Может ли это быть причиной, и если да, то что именно? И как делу помочь?

[bdfy]

Reference какой то не подключен.

[Вождь]

Да. Подклчите "Microsoft Forms" в References.

Лучше передовать не код макроса, а шаблон с макросом.

[garik64]

Сообщение от Вождь

Лучше передовать не код макроса, а шаблон с макросом.

Спасибо. Так и сделал, плюнув на всё. Заработало.

А вот ещё одна проблема нарисовалась в том же макросе. Он должен среди прочего искать строчку с тегом </title>, от неё искать первое вхождение с "http://", копировать в буфер и оттуда вставлять в линк. Он это и делает. Но! Только на слабых машинах. На ноуте (1.7 гигагерц), на конторских (1.5). На моём двухъядернике 2.7 гига начинает работать, проходит половину обрабатываемого текста и выдаёт "Run-time error 4198'". Проскакивает </title> и копирует не то, что надо. Если сократить текст процентов на десять - работает корректно.

Что это может быть? Метод Raise не использовался, один сплошной Select. Ошибок в макросе нет - работает же. Как-то это связано со скоростью? Или с двумя ядрами? Но XP обычная, третий SP...

[Вождь]

Сообщение от garik64

..."Run-time error 4198"...Что это может быть?

Главный совет – постарайтесь не использовать Selection. В Word слишком много автоматических действий завязано на изменение Selection. Например, проверка правописания и др.

Если все-таки, то попробуйте открывать обрабатываемый документ с параметром Visible:=False. Если и это не возможно, то попробуйте:
Application.ScreenUpdating = False
Application.DisplayAlerts = Word.wdAlertsNone

[garik64]

Сообщение от Вождь

Главный совет – постарайтесь не использовать Selection.

Да я вроде понимаю, что надо Range - но как можно отказаться от Selection тому, кто узнавал VBA через макрорекордер? Это же как первый поцелуй!

Если все-таки, то попробуйте открывать обрабатываемый документ с параметром Visible:=False. Если и это не возможно, то попробуйте:
Application.ScreenUpdating = False
Application.DisplayAlerts = Word.wdAlertsNone

"Application.ScreenUpdating = False" и на скриншоте видно, я его всегда использую. А вот про алерты не думал, спасибо.