Проверка на орфографию средствами Microsoft Word - VB

Формулировка задачи:

здравствуйте, по сабжу на строке

                    Листинг программы
                
   Set sugList = GetSpellingSuggestions(Word:=strWord, SuggestionMode:=wdSpellword)

говорит не может создать объект, как это лечится?

                    Листинг программы
                
 
                        
                          
                    
'Добавить ссылку на Microsoft Word 11.0 Object Library
Private Sub main()
    Dim sugList As SpellingSuggestions
    Dim sug As SpellingSuggestion
    Dim strSugList As String
    Dim strWord As String
    strWord = "Летела корова"
    Set sugList = GetSpellingSuggestions(Word:=strWord, SuggestionMode:=wdSpellword)
    If sugList.Count = 0 Then
        MsgBox "Слово без ошибок"
    Else
        For Each sug In sugList
            strSugList = strSugList & vbTab & sug.Name & vbLf
        Next sug
        MsgBox "Варианты замены слова """ & strWord & """:" & vbLf & strSugList
    End If
End Sub

Решение задачи: «Проверка на орфографию средствами Microsoft Word»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim wd As New Word.Application ' Обозначить!
Dim sugList As SpellingSuggestions
    Dim sug As SpellingSuggestion
    Dim strSugList As String
    Dim strWord As String
    wd.Documents.Add ' Добавить документ
    strWord = "Летела корова"
    Set sugList = wd.GetSpellingSuggestions(Word:=strWord, SuggestionMode:=wdSpellword) ' подправить!
    If sugList.Count = 0 Then
        MsgBox "Слово без ошибок"
    Else
        For Each sug In sugList
            strSugList = strSugList & vbTab & sug.Name & vbLf
        Next sug
        MsgBox "Варианты замены слова """ & strWord & """:" & vbLf & strSugList
    End If