Você pode usar a macro a seguir para conseguir isso e vinculá-la a uma combinação de teclado de sua escolha.
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