我有一个包含20个表面的Word文件。我想在第13个表之前将一个命名范围(或表(从Excel插入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
要防止表合并,您需要在它们之间有一个普通的段落。因此:
objDoc.Tables(tblno).Range.Characters.First.Previous.InsertBefore vbCr & vbCr
objDoc.Tables(tblno).Range.Characters.First.Previous.Previous.PasteExcelTable False, False, False