oshizelly
Gold Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Написал примитивный макрос, который выделяет весь текст документа и присваивает ему нужный языковой атрибут:
Код: Selection.WholeStory
Selection.LanguageID = wdEnglish |
Однако проблема в том, что после выполнения макроса весь текст остается выделенным. Соответтвенно, оказывется потерянным предыдущий фокус ввода.
Подскажите, что нужно дописать, чтобы после выполнеия макроса фокус автоматически возрващался на исходную позицию, где он был до запуска макроса. Или что можно нажать руками, чтобы вернуть фокус на исходную точку.
Ну и еще чтобы выделение сбрасывалось, но это не критично, можно просто лишний раз нажать стрелку навигации или дописать что-нибудь вроде
Код:| Selection.MoveDown Unit:=wdLine, Count:=1 |
Спасибо!
:Добавлено:
Частичное решение: дописать в конец макроса эмуляцию нажатия хоткея Shift+F5. Этот хоткей автоматически переместит фокус ввода к месту ввода последнего символа в документе, он же и снимает выделение.
Однако нюанс в том, что место ввода последнего символа в документе - это не обязательно то же самое место, где находился курсор перед запуском макроса. Допустим, последнее изменение в документе было сделано но 110-й странице, а перед запуском макроса просматривалась 422-я... |
Всего записей: 6524 | Зарегистр. 18-09-2004 | Отправлено: 16:20 11-04-2011 | Исправлено: oshizelly, 12:28 22-04-2011 |
|
Все было бы просто замечательно, если бы не одно.., НО, я совершенная профанка в программировании, хотя и не блондинка...