Копирование таблицы из Ворд в Эксель

[Ольга060289]

Доброго времени суток!!!
Прошу помощи) Есть таблица в ворд, которую нужно перенести в эксель, причем перенос должен осуществляться с помощью макроса ворд. Макрос должен создавать новую книгу, новый лист и проходить по каждой ячейке. Вот часть макроса, которую я написала:

Sub Макрос16()

Dim Tb1 As Table
Dim i As Integer
Dim j As Integer

Ex.Workbooks.Add
Ex.Workbooks.Worksheets.Add

For i = 1 To Tb1.Rows.Count
For j = 1 To Tb1.Rows(i).Cell
Tb1.Cell(i, j).Range.Copy
Ex.Workbooks.Worksheets.Cell(i, j).Paste
Next i
Next j

ActiveWorkbook.SaveAs

End Sub


Но, к сожалению, этот макрос не работает((((
Помогите написать макрос))

[Sciv]

1. Вы не открываете собственно книгу эксель (не создаете объекта такого), а обращаться к нему пытаетесь.
2. Вы не указываете, к какой именно таблице в каком именно документе обращаетесь
3. Не очень понятен смысл Вашего двойного цикла: если первый идет точно по вертикали (построчно), то второй точно идет не по столбцам. Кроме того, в конце циклов команды next переставлены местами, что 100% вызовет ошибку
4. Нет смысла делать все через копи-паст, если можно поячеечно скопировать.

В общем, код примерно такой:

Dim i As Integer
Dim j As Integer

Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

Set Tab1 = ActiveDocument.Tables(1)

For i = 1 To Tab1.Rows.Count
For j = 1 To Tab1.Columns.Count
xlSheet.Cells(i, j).Value = Tab1.Cell(i, j).Range.Text
Next j
Next i

xlApp.Visible = True

Проверил - вроде работает, главное - не забыть макросы включить в офиск

[Ольга060289]

Спасибо БОЛЬШОЕ))))) Вы мне очень помогли)) все скопировалось и работает))))