Word 2007: skrót klawiaturowy do autokorekty słowa przed kursorem

Czy istnieje sposób na utworzenie skrótu klawiaturowego w programie Word 2007, który automatycznie koryguje słowo bezpośrednio przed kursorem? Podobnie jak funkcja autokorekty na urządzeniach mobilnych. Powinien automatycznie zaakceptować najwyższą sugestię.

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