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

发布于 2024-11-14 21:43:48 字数 298 浏览 4 评论 0原文

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

任何比我拥有更多 VBA 知识的人都可以帮忙吗（..笑）。

我尝试了宏记录器，但没有比这更进一步：

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

End Sub

谢谢，凯

原文

i'd like to write a macro that selects the next word to the right of the cursor, checks its spelling and replaces an error with the first suggestion..

can anyone with more VBA knowledge than me (..laugh) help out.

i tried the macro recorder but did not get any farther than this:

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

End Sub

thanks,
kay

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

桃扇骨 2024-11-21 21:43:49

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

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

回复收藏 0 原文

~没有更多了~