Сформировать из Exel word документ - VB

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

При запуcке макроса

Sub podtver()
Dim objword As Object
Dim f As String
Dim wdTbl As Word.Table
f = "Q:\document.doc"
Set objword = CreateObject("word.application")
With objword
.Visible = True
.Documents.Open (f)
End With
Set wdTbl = objword.Tables.Add(objword.Selection.Range(), 10, 2)
End Sub
[url=]
выходит ошибка: "Объект не поддерживает данное свойство или метод"
Подскажите пожалуйста что нужно сделать.

Решение задачи: «Сформировать из Exel word документ»

textual
                            Листинг программы 
                        
                            <font color="blue">Set</font> doc = .Documents.<font color="blue">Open</font>(f)
<font color="blue">Set</font> wdTbl = doc.Tables.Add(objword.Selection.Range(), <font color="darkblue"><b>10</b></font>, <font color="darkblue"><b>2</b></font>)