Автозамена в среде MS Word / Windows

Question

MS Word выполняет автозамену при распространенных орфографических ошибках (например, "withh"), но просто подчеркивает красным на некоторых других словах (например, "Akwardd"). Для последних случаев нужно щелкнуть правой кнопкой мыши на слове и выбрать одно из всплывающих предложений. Поскольку почти всегда верное предложение является правильным, мне было интересно, можно ли настроить / настроить автозамену, чтобы для "подчеркнутых красным" слов MS Word / Outlook автоматически выбирал верхнюю запись / делал обоснованное предположение?

Большое спасибо заранее, W

Answer 1

W -

1. Вам нужно будет добавить справочную библиотеку Microsoft Word. В редакторе VBA перейдите в Инструменты -> Ссылки и установите флажок рядом с библиотекой объектов Microsoft Word. Тогда используйте этот код.

2. Вот адаптированный код:

   Sub AutoSpellCheck() Dim oSE As Word.Range Dim oSC

   With ActiveInspector
       If .IsWordMail And .EditorType = olEditorWord Then
           For Each oSE In .WordEditor.Range.SpellingErrors
               Set oSC = oSE.GetSpellingSuggestions
               If oSC.Count > 0 Then
               oSE.Text = oSC(1)
               End If
           Next oSE
       End If
   End With
   

   End Sub

   • S