Word 2007: сочетание клавиш для автозамены слова перед курсором

Question

Есть ли способ сделать сочетание клавиш в Word 2007, которое автоматически корректирует слово прямо перед курсором? Очень похоже на функцию автозамены на мобильных устройствах. Это должно автоматически принять главное предложение.

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