Перенос данных таблиц из Excel в Word - VBA

Узнай цену своей работы

Формулировка задачи:

Имеется Word''овский файл-отчет - текст, таблицы-источники для графиков (10 шт.) (по 2 строки и 15 столбцов, не отображаются), графики (10 шт.), таблицы информационные (5 шт.) (порядка 15 строк и 10 столбцов), все в перемешку. Раньше это все еженедельно заполнялось вручную. Решил автоматизировать. Написал макрос в Excel''е. Теперь исходные таблицы формируются в книге Excel на отдельных листах. Остался один вопрос - как переносить данные из этих таблиц в Word''овские таблицы на нужное место в рамках того же Excel''евского макроса? Не могу найти способ попасть в нужную Word''овскую таблицу. Помогите, пожалуйста.

Решение задачи: «Перенос данных таблиц из Excel в Word»

textual
Листинг программы
Dim shapeLoop As InlineShape
For Each shapeLoop In ActiveDocument.InlineShapes
    With shapeLoop
        If .Type = wdInlineShapeLinkedOLEObject Then
           '' .LinkFormat.Update
            .LinkFormat.BreakLink
        End If
    End With
Next

ИИ для рефератов и докладов


  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

Оцени полезность:

10   голосов , оценка 3.9 из 5