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

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

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

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

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

textual
Листинг программы
  1. Dim shapeLoop As InlineShape
  2. For Each shapeLoop In ActiveDocument.InlineShapes
  3.     With shapeLoop
  4.         If .Type = wdInlineShapeLinkedOLEObject Then
  5.            '' .LinkFormat.Update
  6.            .LinkFormat.BreakLink
  7.         End If
  8.     End With
  9. Next

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут