Уважаемые гуру, ситуация следующая: имеется древний документ, в котором когда-то были проставлены ударения по методу "установить курсор после ударяемой буквы, набрать 0301 и нажать "ALT+X". Судя по всему, проставлялись все ударения вручную...
Когда-то ещё году в 2010-ом этот документ открывался вполне нормально - все ударения отображались толково. Сейчас же при открытии вместо ударений отображается какой-то нераспознанный символ (простой квадратик).
Что я удумал: поскольку через VBA заменить этот символ не удаётся (они при копиировании из Ворда в VBA замещается знаком вопроса), я для начала средствами самого Ворда заменил все эти квадратики на заведомо не встречающееся в документе сочетание "7777". Теперь думаю в VBA сделать следующее: глобально искать 7777 и заменять на 0301 и тут же автоматически "нажимать" "ALT+X", что, как я надеюсь, вернёт родные ударения. Код ниже:



Модератор: Учимся использовать тэги оформления кода - FAQ

Для эмуляции нажатия "ALT+X" думаю применять Selection.ToggleCharacterCode , однако перед этим надо, чтобы соответствующая позиция в документе получила фокус, т.е. общий алгоритм таков (включая вышеприведённый код):
1. Просматривать текст документа глобально и при нахождении 7777 сразу заменять на 0301.
2. Установить фокус в позицию только что замененного текста и применить Selection.ToggleCharacterCode .
3. Перейти к следующему 7777 и т.д.


Внимание, вопрос: что добавить в код выше, чтобы выполнить шаг 2 - установить фокус (без которого Selection.ToggleCharacterCode не сработает)?

Спасибо!