excel - "Nullify"在文档中粘贴Excel表格之前的Word样式

Question

我有一个代码 ( Full code can be found here ) 用于将数据从 Excel 插入到嵌入的 Word 文档中。它读取单元格命令(案例)并根据它们向 Word 输入数据(参见上面的屏幕截图“main”、“attachment”、“table2”)。问题是，如果没有为某些 Case 定义样式，它会采用以前的样式。

我在复制 Excel 范围并将其插入我的文档时遇到了问题。代码采用样式“附件”参数并将具有预定义样式“附件”的表格插入 Word。如何在将范围插入 Ms Word 之前使以前的样式参数为空？

这是我插入表格的代码:

                  Set xlSht = Sheets("Service")
               Case "table2"
        xlSht.Range("B11:I20").Copy
     With wdRng
  .Paragraphs.Last.Range.PasteExcelTable False, False, False
  .Tables(.Tables.Count).AutoFitBehavior wdAutoFitWindow
End With

VBA代码结果:


手动复制:


在 Excel 中:

Answer 1

如果您想“取消”所有样式信息，请在粘贴表格之前执行此操作。 Word中的“null”样式为Normal样式；这种风格在插入表格时也是“最安全的”*。

以下代码片段基于问题中的代码，首先应用样式，然后粘贴表格。

Dim rngPara as Word.Range
Set rngPara = .Paragraphs.Last.Range
rngPara.Style = wdStyleNormal
rngPara.PasteExcelTable False, False, False

*除了段落和字符格式之外，Word 还具有表格样式。这些是一种特殊的样式，用于确定表格格式(与段落或字符格式相反)。只有在使用 Normal 样式格式化的空段落中创建表格时，这些才会正确应用。