Создать таблицу Excel из Ворда

[Balexander]

Мне нужно макросом из документа Ворд создать таблицу Excel, скопировать туда таблицу из вордового документа и через диалог "Сохранить как" сохранить экселевский файл.

Для начала пытаюсь просто создать файл, в ячейку записать слова и сохранить.
Sub CreateOutputFile()
Dim es As Object
Set es = CreateObject("Excel.Sheet")
es.Application.Visible = True
es.Cells(1,1).Value = "Строка 1, ячейка 1"
es.Save
es.Application.Quit
Set es = Nothing
End Sub

На строке, где записываю в ячейку текст вылетает ошибка.
Пример я взял из статьи (http://orlovs.pp.ru/vbaan.php)
Подскажите пожалуйста мою ошибку и как мне решить первоначально поставленную задачу.

[forumWord]

Tools - References... - Microsoft Excel 11.0 Object Library

Sub Макрос1()
Dim oExcel As Excel.Application
Dim oExcelWorkBook As Excel.Workbook
Set oExcel = CreateObject("Excel.Application")
Set oExcelWorkBook = oExcel.Workbooks.Add
ActiveDocument.Tables(1).Range.Copy
oExcelWorkBook.Sheets(1).Paste Destination:=Worksheets(1).Range("A1")
oExcel.Dialogs(xlDialogSaveAs).Show
oExcelWorkBook.Close
oExcel.Quit
Set oExcel = Nothing
Set oExcelWorkBook = Nothing
End Sub