Дополненная автозамена в MS word - выделять измененные слова

Question

У меня ранняя стадия болезни Паркинсона, из-за которой мне сложно печатать.

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

Я нашел это отличное предложение в другом месте, которое имеет большое значение для решения:

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

однако меня беспокоит, что слово заменяется неправильным альтернативным словом, которое затем будет иметь правильное написание - и, следовательно, будет пропущено при последующей проверке орфографии, оставляя потенциальные ошибки, которые трудно найти.

Поэтому у меня есть два вопроса:

1. Может кто-нибудь предложить мод для сценария, чтобы любые измененные слова были выделены?

2. Может кто-нибудь дать представление о том, может ли скрипт замедлить работу с большими документами?

Answer 1

У меня нет Word, но я бы попробовал изменить скрипт следующим образом:

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)
        oSE.HighlightColorIndex = wdYellow
        Else
        oSE.HighlightColorIndex = wdRed
        End If
    Next oSE
End Sub

Слова с ошибками, которые не изменены, должны быть выделены красным; те, которые изменены, должны быть выделены желтым цветом.

Я полагаю, что скорость запуска скрипта будет зависеть отчасти от вычислительной мощности вашего компьютера.