Вставка строки в уже существующую таблицу в Word - VBA

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

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

Добрый день. Ломаю голову над казалось бы элементарной задачей. В документе Word существует таблица, уже сформатированная должным образом. В нее необходимо выгружать данные с листа Excel. Копирование / вставка из ячеек проходит, но мне при этом нужно добавлять строки в середине таблицы в Worde. Делаю так
Листинг программы
  1. Sub start()
  2. Dim wdApp As Word.Application, wdDoc As Word.Document
  3. Set wdApp = New Word.Application
  4. Filename = "с:\Protokol_isp.doc"
  5. Set MyDoc = wdApp.Documents.Add
  6. MyDoc.Range.InsertFile Filename, "", False, False, False
  7. ' Выделяем область для копирования в Excel
  8. Application.Sheets("Лист1").Select
  9. Range("A2:C4").Select
  10. Selection.Copy
  11. ' Вставляем таблицу в Word (это у меня таблица под номером 2)
  12. MyDoc.Application.Visible = True
  13. MyDoc.Range(MyDoc.Tables(2).Cell(2, 1).Range.start, MyDoc.Tables(2).Cell(4, 3).Range.End).Paste
пробовала
Листинг программы
  1. MyDoc.Tables(2).Rows.Add --- добавляет в конец таблицы, не нужно
  2. Selection.InsertRowsBelow 1 ---- не понимает объект, хотя по-всякому пыталась выделять и строку и таблицу целиком

Решение задачи: «Вставка строки в уже существующую таблицу в Word»

textual
Листинг программы
  1. Dim tblNew As Table
  2. Dim rowNew As Row
  3.  
  4. Set tblNew = ActiveDocument.Tables(2)
  5. 'вставка перед 2ой строкой
  6. Set rowNew = tblNew.Rows.Add(BeforeRow:=tblNew.Rows(2))

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


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

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

12   голосов , оценка 3.833 из 5

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

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

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