Excel VBA Импорт PDF таблицы с цветом шрифта

Question

Не уверен, что это на самом деле выполнимо, но я попробую здесь. У меня есть таблица значений, хранящаяся в формате PDF, где шрифты слова имеют цветовую кодировку, например. Красный цвет - плохо, зеленый - хорошо.

Я обыскал и нашел код для импорта значений PDF в Excel, но не цвет шрифта, без которого я не могу определить статус (хороший / плохой) значения.

Можно ли каким-либо образом отредактировать приведенный ниже код, чтобы значения, вставленные в Excel, также имели одинаковый цвет шрифта? Или я поступаю неправильно?

Sub importPDFTable(inputFileName As String, inputWsName As String)

Dim wdDoc As Object
Dim wdFileName As Variant
Dim wrd As Object
Dim inputWs As Worksheet

    Set inputWs = Sheets(inputWsName)
    inputWs.UsedRange.ClearContents

    Set wrd = CreateObject("Word.Application")
    Debug.Print wdFileName
    Set wdDoc = wrd.Documents.Open(inputFileName) 'open PDF file in Word
    wrd.Visible = False

    wrd.Selection.WholeStory
    wrd.Selection.Copy
    inputWs.Range("A1").PasteSpecial xlPasteValues

    Set wdDoc = Nothing
    wrd.Quit
    Set wrd = Nothing
End Sub

Answer 1

Попробуйте этот код: я изменил строку, где вы вставляете код.

Sub importPDFTable(inputFileName As String, inputWsName As String)

Dim wdDoc As Object
Dim wdFileName As Variant
Dim wrd As Object
Dim inputWs As Worksheet

    Set inputWs = Sheets(inputWsName)
    inputWs.UsedRange.ClearContents

    Set wrd = CreateObject("Word.Application")
    Debug.Print wdFileName
    Set wdDoc = wrd.Documents.Open(inputFileName) 'open PDF file in Word
    wrd.Visible = False

    wrd.Selection.WholeStory
    wrd.Selection.Copy

    inputWs.Range("A1").Select
    ActiveSheet.PasteSpecial Format:="HTML"

    Set wdDoc = Nothing
    wrd.Quit
    Set wrd = Nothing
End Sub