MS Word 宏修复最接近的拼写错误答案

【问题标题】：MS Word macro to fix closest spelling errorMS Word 宏修复最接近的拼写错误
【发布时间】：2011-03-29 23:41:15
【问题描述】：

我正在尝试使用 Visual Basic 在 Word 2010 中创建一个相当简单的宏。它所需要做的就是按 Alt+F7 选择最接近的拼写错误，然后按 Enter 选择第一个拼写建议，然后按 Shift+F5 返回上一个编辑点。我试过这个：

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

但是 %{F7} 之后弹出的上下文菜单会立即消失，因此它不会收到 Enter 键按下。相反，选定的文本将替换为换行符。有什么建议？我在打字时经常执行这个按键序列，所以如果我能自动化它会很棒。

【问题讨论】：

标签： vba ms-word spell-checking

【解决方案1】：

好吧，我找到了一个可行的解决方法：

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

但是弹出的对话框和遍历按钮的速度比我想要的要慢和笨拙。任何更好的想法将不胜感激。

【讨论】：

【解决方案2】：

有点晚了：

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

【讨论】：