Из Wordа запустить Exel, скопировать таблицу

[kain151]

Здравствуйте!
Посмотрел похожие темы, не разобрался ( Поэтому создаю отдельную.
Подскажите, пожалуйста, код для макроса Wordа, который позволит (в порядке выполнения):

1. из Wordа (при выполнении макроса) запустить документ Exel, с определенным именем, в определенной папке
2. скопировать в Exel таблицу(ы)
3. создать новый документ Word
4. вставить в Word, скопированную таблицу(ы) из Exel.

Спасибо!

[Sasha_Smirnov]

Код макроса подскажет запись макроса!

Сервис → Макрос → Начать запись (до 2007) либо
Вид → Макросы → Запись макроса...

Но тут (мне) пока неясно, как, в ходе записи, выделять таблицы.

Sub Макрос1()

    For i = 1 To ActiveDocument.Tables.Count
    ActiveDocument.Tables(i).Select
    Selection.Copy 'копирование i-й таблицы активного документа Word'
    
    'здесь код открытия документа Excel - пока не знаю'
    
    Next
    
End Sub

И вообще, зачем «кувыркание» туда-сюда? Можно же сразу вставить таблицу ExCel.

Всё же я произвёл, пока вручную, те 4 действия, что вы хотите автоматизировать. И возник встречный вопрос: что это даёт?

[viter.alex]

Диапазон таблицы известен? Тогда даже открывать ничего не нужно:
Добавляем в место курсора таблицу из файла Excel "Книга1", лежащего в одной папке с документом, в котором выполняется макрос. Таблица находится на листе "Лист1" и имеет адрес: R1C1:R20C14:

Selection.Fields.Add Selection.Range, _
  wdFieldLink, _
  "Excel.Sheet.8 """ & Replace(ThisDocument.Path & "\", "\", "\\") & "Книга1.xls""" & Space(1) & """Лист1!R1C1:R20C14""" & Space(1) & "\a \p"

Думаю, что смысл понятен

[kain151]

Здравствуйте!

Sasha_Smirnov, я, наверное, не очень четко сформулировал мысль:
есть exel документ, в котором таблицы (либо всего одна, либо все идут одна над другой - сверху вниз). Эту самую таблицу(ы) и нужно, запустив макрос в ворде скопировать в сам ворд. Т.е. открыть документ exel, создать новый документ ворд, скопировать таблицу(ы) в exel и вставить в word.

viter.alex, дипазон (если я правильно понял, размер "от" "до") - не известен. Каждый раз разный.

[viter.alex]

То, что диапазон каждый раз разный это и ежу понятно. Но ведь как-то ты собираешься его копировать, а значит адрес, лист и книга будут известны