1 Тема от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

Тема: проверка орфографии в Ворде

Как проверить орфографию в Ворде при помощи ВБА, примеры в сети видел, но они ограничиваются выводом формы Ворда "Правописание" с приглашением проверить орфографию. Одним словом есть переменная А="орфаграфия", как при помощи ВБА узнать не прибегая ни к каким формам, если бы это слово было "орфаграфия" было бы напечатано в документе Ворда, оно бы было подчёркнуто волнистой линией, если да то какой, красной или зелёной, ну и уж для полного счаться:
если оно было бы подчёркнуто зелёной линией, то какое сообщение "приготовил" Ворд
если оно было бы подчёркнуто красной линией,, какие варианты замены этого слова "приготовил" Ворд
Спасибо

2 Ответ от Настаев

  • Настаев
  • подполковник
  • Неактивен
  • Зарегистрирован: 14.07.2011
  • Сообщений: 176
  • Поблагодарили: 54

Re: проверка орфографии в Ворде

Жаль, я только вчера узнал об этом сайте (спасибо за ссылку)
Я попробовал слепить такой макрос, только думаю, что использовать его нежелательно, поскольку в списке предлагамемых слов правильное не всегда стоит первым. Только увидев варианты глазами можно выбрать правильное.
Sub Автозамена() 'использовать нежелательно, поскольку макрос выбирает первое слово в списке подходящих. Но оно не всегдя является таковым.

    Dim sugg As Variant
    Dim wd As Object
    Dim s As String
       
    For Each wd In ActiveDocument.Words
                        
        On Error Resume Next
        Set sugg = wd.GetSpellingSuggestions
        On Error GoTo 0
        
        If sugg.Count = 1 Then
            s = s & vbCr & wd.Text & " - " & sugg(1).Name
            wd.Select
            Selection.TypeText Text:=sugg(1).Name & " "
        End If
        
    Next wd
    
End Sub