Question

我想编写一个宏来选择光标右侧的下一个单词，检查其拼写并用第一个建议替换错误。

任何拥有比我更多VBA知识的人（..laugh）都可以提供帮助。

我试过宏录音机，但没有比这更远：

Sub FirstSuggest()
    Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
    ...
    ...

End Sub

感谢，琦

Answer 1

Dim r As Range
Set r = Selection.GoToNext(wdGoToSpellingError)

With r.GetSpellingSuggestions()
  If .Count > 0 Then
    r.Text = .Item(1).Name
  End If
End With

MS Word VBA - 选择范围，检查拼写并接受第一个建议

1 个答案: