Добрый день!  
Помогите, пожалуйста, со вчерашнего дня бьюсь с этой штукой.  
В модуле книги Excel есть следующий код:  
 
Sub Create_Word_Doc()  
Dim wbApp As Object, wDoc As Object, sStr As String  
Set wbApp = CreateObject("Word.Application"): wbApp.Visible = True  
Set wDoc = wbApp.Documents.Add  
'создаем таблицу - если вместо wDoc (ниже) ставим ActiveDocument тоже ругается  
   wDoc.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= _  
       4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _  
       wdAutoFitFixed  
   With Selection.Tables(1)  
       If .Style <> "Сетка таблицы" Then  
           .Style = "Сетка таблицы"  
       End If  
       .ApplyStyleHeadingRows = True  
       .ApplyStyleLastRow = True  
       .ApplyStyleFirstColumn = True  
       .ApplyStyleLastColumn = True  
   End With  
 
nomerdoc = nomerdoc + 1  
wDoc.SaveAs Filename:=ThisWorkbook.Path & "\запрос" & nomerdoc & ".doc"  
wDoc.Close: wbApp.Quit  
Set wDoc = Nothing: Set wbApp = Nothing  
End Sub  
 
Ругается на создание таблицы.