Правильный язык

При наборе текста Word автоматически отслеживает переключение языков, и поэтому нет необходимости делать это вручную. Если же текст документа импортирован не из документа Word или вставлен через буфер обмена из какой-либо другой программы, то язык во всем документе будет один - заданный в стиле Обычный.
Автоматически установить английский (для слов с латинскими буквами) или русский (для слов с кириллицей) можно с помощью предлагаемого макроса. Он предполагает, что документ содержит англо-русский текст.

Для обработки англо-украинского текста нужно немного изменить конструкцию Case ''А'' To ''я'' для определения теперь уже украинского языка. Сразу после ''я'' добавляется список украинских букв (в двойных кавычках, разделенных запятыми), отсутствующих в русском языке. Значение .LanguageID для украинского языка wdUkrainian.

Выполнение макроса для больших текстов занимает много времени. Для ускорения можно временно отключить обновление экрана, вставив первым оператором Application.ScreenUpdating = False, а закончить макрос Application.ScreenUpdating = True.

Sub SetLanguage()
With Selection
.HomeKey (wdStory)
Do
CurSymbol = .Characters(1).Text
If Asc(CurSymbol) <> 13 Then
.MoveRight
Select Case CurSymbol
Case "A" To "z":
.LanguageID = wdEnglishUS
Case "А" To "я":
.LanguageID = wdRussian
Case Else:
.LanguageID = wdNoProofing
End Select
End If
i = .MoveRight
Loop While i = 1
.HomeKey (wdStory)
End With
End Sub