Я хочу вставить именованный диапазон от Excel до существующего файла слов в определенной позиции в файле слов (он имеет 20 таблиц) с использованием VBA

Question

У меня есть файл слов, содержащий более 20 таблиц. Я хочу вставить именованный диапазон (или таблицу) из Excel в файл слова перед 13-й таблицей. Я не хочу, чтобы новая таблица сливалась с какими-либо существующими таблицами. Я использую VBA для этого. Проблема в том, что вставленная таблица объединяется с таблицей (13).

// Yakuza is the name of my named range

Set tbl = ThisWorkbook.Worksheets(Sheet2.Name).Range("Yakuza")
    tbl.Copy
    objDoc.Tables(tblno).Range.InsertBefore (Chr(10))
    objDoc.Tables(13).Range.PasteExcelTable False, False, False

//I have tried this as well: objDoc.Tables(tblno).Range.PasteAndFormat wdFormatOriginalFormatting

Answer 1

Чтобы предотвратить слияние таблиц, между ними должен быть обычный абзац.Отсюда:

objDoc.Tables(tblno).Range.Characters.First.Previous.InsertBefore vbCr & vbCr
objDoc.Tables(tblno).Range.Characters.First.Previous.Previous.PasteExcelTable False, False, False