Question

我有一个Word文件，其中包含20多个表格。我想将Excel中的命名范围（或表）插入到第13个表之前的word文件中。我不希望新表与任何现有表合并。我正在使用VBA来执行此操作。问题是插入的表与table（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

我想使用VBA在Excel文件（具有20个表）的特定位置插入从excel到现有Word文件的命名范围。

1 个答案: