Скопированный диапазон из Excel в Word (настройки шрифта скрыты?) - PullRequest
Новая
       13

Скопированный диапазон из Excel в Word (настройки шрифта скрыты?)

0 голосов
/ 03 апреля 2019

У меня есть код для копирования диапазона данных из 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

1 Ответ

0 голосов
/ 03 апреля 2019

Я решил эту проблему, добавив .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
...