Помогите написать макрос (VBA) word.

[Zurs]

Помогите пожалуйста написать макрос для word'а. Выполняться должно следующее:
1)В той же папке, что и word-файл ищется exel-файл, с названием "Таблица". Если файла нет, выходит сообщение о его отсутствии.
2)Если файла есть, считываем таблицу. Вкладка на которой находится нужная таблица называется "table1". Таблица находится в следующих клетках A-M,10-20.
3)Данные копируются в буфер и вставляются в Word-файл.
Заранее спасибо!

[Aleksandr H.]

Sub impot()
    Dim xl As Excel.Application, wb As Excel.Workbook, ws As Excel.Worksheet
    Dim xlOpen As Boolean, wshell
    Set xl = GetObject(, "Excel.application")
    If Err.Number <> 0 Then
        Set xl = CreateObject("excel.application")
    Else
        xlOpen = True
    End If
    On Error Resume Next
    Set wshell = CreateObject("WScript.Shell")
    Set wb = xl.Workbooks.Open(wshell.CurrentDirectory & "\Таблица.xlsx")
    If wb Is Nothing Then
        MsgBox "Unable to open file!"
    
    On Error GoTo 0
    GoTo cleanUp
    End If
    On Error GoTo 0
    Set ws = wb.Sheets("table1")
    With ws
        .Range("A10:M20").Copy
        Selection.Paste
    End With
cleanUp:
    If xlOpen = False Then xl.Quit
    Set xl = Nothing
    Set wb = Nothing

End Sub

[Zurs]

Компилятор ошибку возвращает:
User-defined type not defined.
Может подключить, что-нибудь нужно?