Question

我正在尝试使用Visual Basic在Word 2010中创建一个相当简单的宏。所需要做的就是按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

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

2 个答案: