Sub X()
    Dim objWd As Word.Application
    Dim objDoc As Word.document
    Dim strSuggestion As Word.SpellingSuggestion
    Dim colSuggestions As Word.SpellingSuggestions
    Dim intI As Integer
    
    Set objWd = New Word.Application
    Set objDoc = objWd.Documents.Add()

    If Application.CheckSpelling(Range("A1")) Then
        Debug.Print "Слово написано верно."
    Else
        Set colSuggestions = objWd.GetSpellingSuggestions(Range("A1"))
        
        For Each strSuggestion In colSuggestions
            intI = intI +  1 
            Debug.Print strSuggestion
            Range("A1").Offset( 0 , intI) = strSuggestion
        Next
    End If
    
    objWd.Quit
    Set objWd = Nothing
End Sub