Проверка на орфографию средствами 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
                        