Макрос MS Word для исправления ближайшей орфографической ошибки

Question

Я пытаюсь создать довольно простой макрос в Word 2010 с помощью Visual Basic.Все, что нужно сделать, это нажать Alt + F7, чтобы выбрать ближайшую орфографическую ошибку, затем нажать Enter, чтобы выбрать первое предложение орфографии, затем нажать Shift + F5, чтобы вернуться к предыдущей точке редактирования.Я попытался это сделать:

SendKeys "%{F7}"
SendKeys "~"
SendKeys "+{F5}"

, но контекстное меню, которое появляется после% {F7}, сразу исчезает, поэтому не получает нажатие клавиши Enter.Вместо этого выделенный текст заменяется разрывом строки.Какие-либо предложения?Я выполняю эту последовательность нажатий клавиш при наборе текста, поэтому было бы здорово, если бы я мог автоматизировать ее.

Answer 1

ну, я нашел что-то вроде обходного пути:

SendKeys "{F7}{TAB}{TAB}{TAB}{TAB}{TAB}~{ESCAPE}+{F5}+{F5}"

но всплывающее диалоговое окно и итерация по кнопкам медленнее и неуклюже, чем хотелось бы. Любые лучшие идеи будут с благодарностью.

Answer 2

Слишком поздно, но:

With Selection
  .MoveStartUntil Chr(9) + Chr(32), -100
  .MoveEndUntil Chr(9) + Chr(32), 100
  .Text = .Range.GetSpellingSuggestions.Item(1)
End With