Конечно, вот код макроса на VBA, который изменит настройку "Не проверять правописание" на противоположную для текущего слова или для выделенного фрагмента в документе Word:
Sub SpellCheck_OFF()
Dim oRange As Range
Dim WordCount As Integer
Dim oWord As Range
If Selection.Type = wdSelectionNormal Then
' Есть выделение, применяем к выделенному фрагменту
Set oRange = Selection.Range
Else
' Выбрано одно слово
Set oRange = ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start)
oRange.Expand Unit:=wdWord
End If
WordCount = 0
' Перебираем все слова в выделенном диапазоне
For Each oWord In oRange.Words
' Убедимся, что это не знак препинания
If Left(oWord.Text, 1) <> "." And Left(oWord.Text, 1) <> "," And Left(oWord.Text, 1) <> ";" And _
Left(oWord.Text, 1) <> ":" And Left(oWord.Text, 1) <> "!" And Left(oWord.Text, 1) <> "?" And _
Left(oWord.Text, 1) <> Chr(13) Then ' Chr(13) - знак конца параграфа
' Инвертируем настройку "Не проверять правописание"
oWord.NoProofing = Not oWord.NoProofing
WordCount = WordCount + 1
End If
Next oWord
' Сообщение с количеством обработанных слов
MsgBox WordCount & " слов(а) было обработано."
' Очищаем переменные
Set oRange = Nothing
Set oWord = Nothing
End Sub
Чтобы использовать этот код:
1. Откройте MS Word.
2. Нажмите Alt + F11, чтобы открыть редактор VBA.
3. В меню редактора выберите Insert > Module, чтобы создать новый модуль.
4. Скопируйте и вставьте приведенный выше код в окно нового модуля.
5. Закройте редактор VBA и запустите макрос, используя Alt + F8 и выбрав "SpellCheck_OFF".
Этот макрос переключит настройку "Не проверять правописание" для текущего слова или выделенного текста и покажет количество обработанных слов. Документ не будет сохранен автоматически.
