Word 2007：カーソルの前の単語を自動修正するキーボードショートカット

Word 2007で、カーソルの直前にある単語を自動修正するキーボードショートカットを作成する方法はありますか？モバイルデバイスの自動修正機能によく似ています。自動的に一番上の提案を受け入れます。

次のマクロを使用してこれを実現し、選択したキーボードの組み合わせにバインドできます。

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