MS Word VBA - выберите диапазон, проверьте орфографию и примите первое предложение

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