Odpowiedzi:
Aby to osiągnąć, możesz użyć następującego makra i powiązać go z wybraną kombinacją klawiszy.
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