Автозамена для "толстых пальцев" - MS Word

Question

Мне интересно, знает ли кто-нибудь плагин для MS Word, который может обрабатывать нажатия клавиш окружающих клавиш при быстром наборе текста (скорее, как автозамена iPhone или Android)?

Мой пример использования - это запись интервью, когда мне нужно набирать текст быстро (даже при воспроизведении с половинной скоростью), но я делаю это недостаточно часто, чтобы стать опытным машинистом. Я также буду уделять пристальное внимание тексту, полученному в последующем анализе, поэтому у меня есть разумное ожидание, что я поймаю любые "смешные" ошибки автозамены.

Любые указатели на плагины, которые работают на системном уровне или в MS Word, были бы хорошими. Даже в текстовом процессоре с открытым исходным кодом в крайнем случае, хотя я бы скучал по среде MS Word и моим макросам.

Благодарю.

Answer 1

В Microsoft Word уже есть очень хорошая встроенная функция для этого, называемая автозаменой. Если он еще не включен, включите его. Убедитесь в том, что в меню параметров установлено большинство флажков, в том числе « Автоматически использовать предложения из средства проверки орфографии ».

Эта особая подфункция звучит очень полезно для вас, так как она должна выбрать ближайшее слово из словаря и заменить его во время набора текста. Word довольно хорошо выбирает правильное слово, даже когда ввод искажен. Кроме того, это поведение не будет слишком рискованным, поскольку вы заявляете, что тщательно проверяете стенограмму :)

РЕДАКТИРОВАТЬ: поскольку функция автокоррекции Microsoft Word исправляет только те слова, с которыми она уже знакома, вы можете использовать эту функцию и сделать еще один шаг вперед, чтобы каждое неправильное слово заменялось первым предложением из словаря. Так как Microsoft Word довольно хорошо выбирает правильные слова, когда они написаны с ошибками, у вас должен быть хороший успех.

Вы можете включить этот макрос в ваш документ и запускать его при запуске каждые X секунд. Он заменит любые слова с ошибками на первое предложение из словаря.

Sub AutoSpellCheck()
    Dim oSE As Range
    Dim oSC
    For Each oSE In ActiveDocument.Range.SpellingErrors
        Set oSC = oSE.GetSpellingSuggestions
        If oSC.Count > 0 Then
        oSE.Text = oSC(1)
        End If
    Next oSE
End Sub