excel - 复制没有背景颜色的 Excel 范围

Question

我有一个将表格从 Excel 复制到 Word 的代码。

        If ThisWorkbook.Worksheets("OtherData").Range("N90").Value = True Then
          ThisWorkbook.Sheets("TableForOL").Range("B6:F16").Copy
            With wdRng
            Set rngPara = .Paragraphs.Last.Range
            rngPara.Style = "Data"
            rngPara.PasteExcelTable False, False, False
            .Tables(.Tables.Count).Range.Paragraphs.Indent
            .Font.Hidden = 0
            Set rngPara = Nothing
            End With
        Else
          ThisWorkbook.Sheets("TableForOL").Range("B6:F6").Copy
            With wdRng
            Set rngPara = .Paragraphs.Last.Range
            rngPara.Style = "Data"
            rngPara.PasteExcelTable False, False, False
            .Tables(.Tables.Count).Range.Paragraphs.Indent
            .Font.Hidden = 0
            Set rngPara = Nothing
            End With
        End If

该表在 Excel 中有一定的背景，即使在复制粘贴过程之后也可以很好地保留。但是我不想在 Word 中使用它。目前我必须使用:

ThisWorkbook.Sheets("TableForOL").Range("B6:F2621").Interior.ColorIndex = 0

那就是删除所有背景。
有没有办法以另一种方式做到这一点，这样背景颜色就会完全跟随 Word 文档，但会保持在 Excel 中的状态。

Answer 1

请尝试更改

rngPara.PasteExcelTable False, False, False

和

rngPara.PasteExcelTable False, True, False