我想使用 VBA 将一个命名范围从 excel 插入到 word 文件中特定位置的现有 word 文件（它有 20 个表）答案

【问题标题】：I want to insert a named range from excel to an existing word file at a specific position in the word file (it has 20 tables) using VBA我想使用 VBA 将一个命名范围从 excel 插入到 word 文件中特定位置的现有 word 文件（它有 20 个表）
【发布时间】：2019-05-17 07:01:22
【问题描述】：

我有一个包含 20 多个表格的 word 文件。我想将 excel 中的命名范围（或表）插入到第 13 个表之前的 word 文件中。我不希望新表与任何现有表合并。我正在使用 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

【问题讨论】：

标签： excel vba ms-word

【解决方案1】：

为防止表格合并，您需要在表格之间放置一个普通段落。因此：

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

【讨论】：