Проверка правописания словосочетаний

Sub Проверяем_орфографию_грамматику_слова()
 
    Проверяемое_слово = "у перекрёсток"
    'проверяем грамматику, точку и пробел надо ставить у проверяемого слова
    If Application.CheckGrammar(Проверяемое_слово & ". ") = True Then
        MsgBox "Проверяемое слово: " & Проверяемое_слово & " без ошибок!"
    Else
        'MsgBox$ "Проверяемое слово: " & Проверяемое_слово & " подчёркнуто зелёной волнистой линией"
        'применимо для Word 2007, бывает версия Word 2007 "12.0.4518"
        If Left$(Application.Build, 2) = "12" Then Проверка_грамматики (Проверяемое_слово)
    End If
 
End Sub
 
Function Проверка_грамматики(Проверяемое_слово)
 
    Dim Doc As Document
    Set Doc = Documents.Add(, True, , False)
    Doc.Content.Text = Проверяемое_слово
    Do Until Doc.GrammarChecked
        DoEvents
    Loop
    For i = 1 To Doc.Content.Words.Count
        Doc.Content.Words(i).Select
        ПервыйЭлементКонтекстногоМеню = Doc.CommandBars("Grammar").Controls(1).Caption
        If ПервыйЭлементКонтекстногоМеню <> "&Грамматика..." Then
            Exit For
        End If
    Next
    Doc.Close False
 
    If Right$(ПервыйЭлементКонтекстногоМеню, 46) = " не связан с существительным или местоимением." Then MsgBox ПервыйЭлементКонтекстногоМеню
 
End Function