如何从PDF X-change到Excel提取4个签名？

Question

我目前有一个程序在一个充满子文件夹的父文件夹中循环。这些子文件夹中的每一个都有一个pdf文件，格式为“ 子文件夹名称 SIGNOFF”。目前，我已经成功地遍历了所有这些内容，并且正在将整个文件目录打印到excel文件中，并打开每个pdf文件。现在我的问题是，使用PDF XChange Editor从这些pdf的每个pdf中，有4个签名框，我需要将其名称和日期导出到Excel文件中。当我单击每个签名时，“签名属性”框会显示一个漂亮的“签名人”框和“日期”框。

我已经尝试过其他人以前尝试过的某种形式，但是都不适用于PDF XChange。遗憾的是，我不能使用Adobe或其他程序，因为这是我公司使用的程序，并且必须在该程序上运行。

Sub FindSubFolders(ByRef ParentPath)


'Declarations
Dim SubFolder As Object
Dim xRow As Integer

Set xlWkSh = Application.ActiveSheet

xRow = 3
For Each SubFolder In ParentPath.SubFolders
    Cells(xRow, 1).Value = Array(SubFolder.Name)
    Call FindFiles(SubFolder, xRow)
    xRow = xRow + 1
Next


End Sub

Sub FindFiles(ByRef SubFolder, ByRef xRow As Integer)


'Declarations
Dim StrFile As String

Set xlWkSh = Application.ActiveSheet
SubFolder1 = SubFolder & "\"
Filename = Dir(SubFolder1 & "*SIGN*")
FilePath = SubFolder1 & Filename
Cells(xRow, 2).Value = Filename
Cells(xRow, 11).Value = FilePath
Call PullData(FilePath, xRow)


End Sub

Sub PullData(ByRef FilePath, ByRef xRow)


'Declarations
Dim wsShell As Object

'Open PDF
Set wsShell = CreateObject("WScript.Shell")
wsShell.Run Chr(34) & FilePath & Chr(34)

'Read Signatures and Dates
Call GetSignatures(FilePath, xRow)

'Close PDF


End Sub


Sub GetSignatures(ByRef FilePath, ByRef xRow)

'Declarations
Dim xColum As Integer
xColum = 3

End Sub

理想情况下，第一个签名将出现在xRow和第3列中。然后日期将在第4列中，然后是下一个签名在第5列中，接着是在第六个签名中，依此类推。对于所有4个签名和日期，依此类推。