Вставка строки в уже существующую таблицу в Word - VBA
Формулировка задачи:
Добрый день. Ломаю голову над казалось бы элементарной задачей. В документе Word существует таблица, уже сформатированная должным образом. В нее необходимо выгружать данные с листа Excel. Копирование / вставка из ячеек проходит, но мне при этом нужно добавлять строки в середине таблицы в Worde.
Делаю так
пробовала
Листинг программы
- Sub start()
- Dim wdApp As Word.Application, wdDoc As Word.Document
- Set wdApp = New Word.Application
- Filename = "с:\Protokol_isp.doc"
- Set MyDoc = wdApp.Documents.Add
- MyDoc.Range.InsertFile Filename, "", False, False, False
- ' Выделяем область для копирования в Excel
- Application.Sheets("Лист1").Select
- Range("A2:C4").Select
- Selection.Copy
- ' Вставляем таблицу в Word (это у меня таблица под номером 2)
- MyDoc.Application.Visible = True
- MyDoc.Range(MyDoc.Tables(2).Cell(2, 1).Range.start, MyDoc.Tables(2).Cell(4, 3).Range.End).Paste
Листинг программы
- MyDoc.Tables(2).Rows.Add --- добавляет в конец таблицы, не нужно
- Selection.InsertRowsBelow 1 ---- не понимает объект, хотя по-всякому пыталась выделять и строку и таблицу целиком
Решение задачи: «Вставка строки в уже существующую таблицу в Word»
textual
Листинг программы
- Dim tblNew As Table
- Dim rowNew As Row
- Set tblNew = ActiveDocument.Tables(2)
- 'вставка перед 2ой строкой
- Set rowNew = tblNew.Rows.Add(BeforeRow:=tblNew.Rows(2))
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д