Question

我有一个代码，用于将数据范围从Excel复制到Word。处理正常，但我刚刚注意到复制的表格在MS Word中在打印模式下不可见。经过调查，我发现字体设置被设置为“隐藏”。这应该在复制-粘贴过程中进行。如何解决？我想看到它.Font.Hidden = False

问题必须在这里rngPara.PasteExcelTable False, False, False处吗？

我从Excel复制的代码-粘贴：

Case "table2"
  ThisWorkbook.Sheets("Prices").Range("Q17:V26").Copy
  With wdRng
    Set rngPara = .Paragraphs.Last.Range
    rngPara.Style = wdStyleNormal
    rngPara.PasteExcelTable False, False, False
    .Tables(.Tables.Count).AutoFitBehavior wdAutoFitWindow
    Set rngPara = Nothing
    End With

Answer 1

我通过添加.Font.Hidden = 0

解决了这个问题

Case "table2"
  ThisWorkbook.Sheets("Prices").Range("Q17:V26").Copy
  With wdRng
    Set rngPara = .Paragraphs.Last.Range
    rngPara.Style = wdStyleNormal
    rngPara.PasteExcelTable False, False, False
    .Tables(.Tables.Count).AutoFitBehavior wdAutoFitWindow
    .Font.Hidden = 0
    Set rngPara = Nothing
    End With

复制范围从Excel到Word（字体设置设置为隐藏吗？）

1 个答案: