Статьи из блога

Исправление языка для проверки орфографии в Microsoft Word

Если в программе некорректно выставлен язык, при оформлении документов часто возникают проблемы. Как с ними справиться при проверке орфографии – об этом ниже. Если разные куски текста взяты (скопированы) из разных источников, то при проверке на правильность написания программа будет подчеркивать слова. Это происходит, если язык текста не совпадает с тем, который выставлен в данный момент. Выглядит это обычно так:

 

Исправление языка для проверки орфографии в Microsoft Word

 

Если подчеркнуто одно слово, то требуется только поменять язык на тот, который нужен.

 

Исправление языка для проверки орфографии в Microsoft Word

 

Если весь текст написан на одном языке, то задача тоже несложная: выделяем все и выбираем язык. Но совсем другая картина, если текст на русском, но содержит много иностранных терминов. Как поступить в этом случае? Нужно написать скрипт. Панель разработчика вначале добавляется в Word, после чего выбирается меню «настройка ленты».

 

Исправление языка для проверки орфографии в Microsoft Word

 

Потом находим вкладку «разработчик» и ставим туда галочку.

 

Исправление языка для проверки орфографии в Microsoft Word

 

После этого нужно в шаблоне Normal.dotm создать новый макрос.

 

Исправление языка для проверки орфографии в Microsoft Word

 

Исправление языка для проверки орфографии в Microsoft Word

 

Дальше – вставить процедуру и присвоить модулю имя, только оно не должно быть простым набором букв. Вообще скрипт этот создан довольно давно, и переходит «из рук в руки», обрастая доработками. Когда-то (в прошлом веке) он был появился в журнале «Мир ПК». Позже его переделал Алексей Мурзов и приспособил для бесперебойной работы с новыми версиями Word. Мысль сама не отличается сложностью выполнения. Английским считается слово с латинскими буквами, соответственно, слово из русских букв принимаем за русское. Код скрипта приведен ниже.

 

Исправление языка для проверки орфографии в Microsoft Word

 

Создаем кнопку для быстрого запуска макроса

 

Исправление языка для проверки орфографии в Microsoft Word

 

Теперь следует добавить новый макрос и нажать кнопку «изменить», чтобы подобрать подпись и иконку для новой кнопки.

 

Исправление языка для проверки орфографии в Microsoft Word

 

Исправление языка для проверки орфографии в Microsoft Word

 

Таким образом, мы получили опцию (она появилась в панели быстрого запуска), которая для исправления языка запускает макрос.

 

Исправление языка для проверки орфографии в Microsoft Word

 

Корректность работы кнопки нужно проверить.

 

Исправление языка для проверки орфографии в Microsoft Word

 

Теперь фраза-тест готова к орфографической проверке

 

Исправление языка для проверки орфографии в Microsoft Word

 

Текст скрипта прилагается в файле - текст скрипта.

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 5

  1. Алексей
    08.12.2011 в 20:24 | #1

    А как быть с Украинским

  2. Николай
    10.02.2012 в 12:33 | #2

    Sub PrepForSpell()
    With Selection
        .LanguageID = wdRussian 
        '.LanguageID = wdUkrainian
        .NoProofing = False
        Dim n1 As Integer
        Dim w1 As String
        For Each w In .Words
            w1 = Left(Trim(w), 1)
            If w1  "" Then
                n1 = Asc(w1)
                If (64 < n1 And n1 < 91) Or (96 < n1 And n1 < 123) Then
                    w.LanguageID = wdEnglishUS
                    w.NoProofing = False
                End If
            End If
        Next w
    End With
    Application.CheckLanguage = True
    End Sub

    Я упростил код процедуры, сделал ее работу более логичной. Теперь проверяется не весь документ (настоящая головная боль), а только выделенный кусок текста. Кроме того, теперь курсор не бегает по документу.

    Ну, и бонус: чтобы использовать украинский (вместо русского) и английский языки, замените код

    .LanguageID = wdRussian 
    '.LanguageID = wdUkrainian

    следующим:

    '.LanguageID = wdRussian 
    .LanguageID = wdUkrainian

  3. Алишер
    09.02.2016 в 18:03 | #3

    А как быть с Узбекским (крилл)

  4. Аноним
    21.03.2017 в 13:40 | #4

    https://msdn.microsoft.com/en-us/library/office/ff834937.aspx список языков на сайте Microsoft

  5. Аноним
    16.03.2021 в 12:32 | #5

    "Если весь текст написан на одном языке, то задача тоже несложная: выделяем все и выбираем язык."

    ГДЕ ВЫБИРАЕМ? Г Д Е ?!?!?;?

Оставьте комментарий!

(обязательно)

^ Наверх