У меня есть программа, которая в настоящее время просматривает родительскую папку, полную подпапок.Каждая из этих подпапок будет иметь PDF-файл в формате " Subfolder-Name SIGNOFF".В настоящее время я успешно прошел через все это и печатаю полный каталог файлов в файл Excel и открываю каждый из файлов PDF.Теперь моя проблема заключается в том, что в каждом из этих PDF-файлов с помощью PDF XChange Editor есть 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-м, затем подпись в 6-м и т. Д. Для всех 4 подписей и дат.