VBA из Excel в Word добавить строку таблицы в таблицу с объединенными ячейками

Я просмотрел по всему Интернету решение моей проблемы, но не ответил. То, что я хочу сделать, это вставить строку в таблицу Word с помощью Excel VBA. Таблица содержит некоторые объединенные ячейки вне области, в которую я хочу вставить строки. То, что я сделал бы для таблицы без объединенных ячеек, выглядит примерно так:

Dim WrdApp As Word.Application Dim docPA As Word.Document Dim tabelWord As Word.Table Set WrdApp = GetObject(, "word.Application") Set docPA = WrdApp.Documents.Open(Application.ActiveWorkbook.Path & "\TabeleCopyV3.doc") Set tabelWord = docPA.Bookmarks("TabelSOPotential").Range.Tables(1) tabelWord.Rows(2).Select WrdApp.Selection.InsertRowsAbove (5) 

Это отлично работает для таблиц, в которых нет объединенных ячеек. Однако, если в таблице есть даже две объединенные ячейки (за пределами области, в которой я хочу вставить данные), выбор не происходит. Я не могу даже обращаться к ячейке таблицы с помощью этого кода:

 tabelWord.Rows(2).Cells(1).Range.text = "text" 

Единственный способ, которым я могу обращаться к ячейкам (и это работает), – это использовать этот код:

 tabelWord.cell(2, 1).Range.text = "text" 

Таким образом мне удалось удалить строки следующим образом:

 tabelWord.cell(2, 1).Delete ShiftCells:=wdDeleteCellsEntireRow 

Но как тогда я вставляю строки таким образом? Спасибо!

  • Получить последнюю строку, но результат смещения в другой столбец
  • Как импортировать CSV. Сначала импортируйте x количество строк в один лист, а затем x числа в следующем ect
  • Несколько запятых в файле csv с разделителем = ','?
  • Функция Excel Group - вставка строк
  • Функция массива на логическом тестировании OFFSET
  • Excel VBA - Как узнать, является ли следующая строка или столбец последней?
  • Как скопировать ячейку с несколькими строками без нарушения строк?
  • Есть ли простой способ удалить / игнорировать строки над именами столбцов в файле Excel с помощью OleDbConnection?
  • Добавить конкретное значение в определенные столбцы Excel VBA
  • Excel VBA Скрыть строки на основе цвета ячейки, и если команда говорит «Да»,
  • Excel VBA. Как добавить новую строку в конце листа только в том случае, если новая строка отличается от последней строки?
  • Interesting Posts

    Excel VBA для автозаполнения столбца

    Excel – значение не найдено w / VLookUp, но только на некоторых строках

    excel vba – выберите все отфильтрованные строки, кроме заголовка после автофильтра

    Написал сценарий VBA, который имеет смысл, но все еще не работает

    Excel Copy Paste работает только в защищенном представлении

    Pandas объединяет пустые строки в файле Excel в одну строку в dataframe

    Как отлаживать исключение NullReferenceException на базе. Разделить (распоряжаться) шаблоном

    Скребуние данных из таблицы HTML с несколькими страницами

    Изменение формы диаграммы, созданной apache poi для листа excel

    Как изменить код VBA, поэтому он создает рабочую книгу только один раз, чем рабочий лист для каждой другой опции

    Выделите имя месяца с самой высокой записью в

    Как получить значение из текстового поля в PowerPoint в Excel?

    Как я могу перезаписать другой файл Excel без диалога «На самом деле хочу переписать» в VB.NET

    Суммировать минимум соответствующих значений столбца

    VBA преобразует двоичное изображение в строку с кодировкой base64 для веб-страницы

    Давайте будем гением компьютера.