Чтобы выполнить проверку орфографии в Word с помощью VBA (Visual Basic для приложений), вы можете использовать следующие методы:

Метод 1: использование встроенного объекта SpellCheck

Sub SpellCheck()
    Dim rng As Range
    Set rng = ActiveDocument.Content
    rng.CheckSpelling
End Sub

Метод 2. Перебор каждого слова в документе

Sub SpellCheck()
    Dim rng As Range
    Set rng = ActiveDocument.Content

    For Each word In rng.Words
        If Not Application.CheckSpelling(word.Text) Then
            ' Do something with the misspelled word
            ' For example, you can replace it with a correct spelling
            word.Text = Application.GetSpellingSuggestions(word.Text)(1)
        End If
    Next word
End Sub

Метод 3. Проверка правописания в определенном диапазоне

Sub SpellCheck()
    Dim rng As Range
    Set rng = ActiveDocument.Range(Start:=0, End:=10) ' Specify your desired range

    rng.CheckSpelling
End Sub

Метод 4. Проверка правописания определенного слова

Sub SpellCheck()
    Dim word As String
    word = "example"

    If Not Application.CheckSpelling(word) Then
        MsgBox word & " is misspelled."
    Else
        MsgBox word & " is spelled correctly."
    End If
End Sub