Как скопировать таблицу из ворда в эксель

[ДианаS]

Всем привет! Помогите плиз. Не могу из ворда скачать таблицу в эксель. Получается в одном столбуце все данные. Разбиваю через ДАННЫЕ ТЕКСТ ПО СТОЛБЦАМ тоже не получается. Разбил по столбцам вместе с такими палочками. Помоги плииииз │ А │ Б │ В │602 │604 │606 │608 │610 │

[alex77755]

Не понятен вопрос.
Программно или просто так?
Просто так: Выделить ячейку, Ctrl+C, активировать ексел, активировать нужную ячейку, Ctrl+V. Вуаля.
Программно: надо знать где должен быть макрос. В ворде или в екселе.

[alex77755]

Программно так из ексела:

Sub export()
    Dim objWord, objDoc, FL
    Set objWord = CreateObject("Word.Application")
    FL = ActiveWorkbook.Path & "\1.doc"
    Set objDoc = objWord.Documents.Open(FL)
    objWord.ActiveDocument.Tables(1).Range.Select
    objWord.Selection.Copy
    [a1].Select
    ActiveSheet.Paste
    objDoc.Close
    objWord.Quit
End Sub