Я могу читать свойства PDF-файла, не защищенного паролем.Можно ли как-нибудь прочитать эти свойства для (известного) защищенного паролем pdf?
Обратите внимание, что я не хочу удалять пароль или изменять PDF, моя задача - только прочитать свойства.Я предпочитаю, если нет стороннего программного обеспечения, просто Excel и соответствующий PDF.
Ниже приведен фрагмент моего кода.
Public Function ReadPDFMetaData2(ByVal sFile As String) As Variant
Dim metaData(3) As Variant
Dim oApp As Object
Dim oDoc As Object
Dim strFileName As String, strNumPages As Long, strPageMode As String
Dim strTitle As String, strSubject As String, strAuthor As String
Dim strKeywords As String, strCreator As String, strProducer As String, strApplication
Set oApp = CreateObject("AcroExch.App")
Set oDoc = CreateObject("AcroExch.PDDoc")
With oDoc
If .Open(sFile) Then
'-- try to insert PASSWORD HERE, unsuccessful
'If .Open(sFile, PasswordDocument:="mypassWord") Then
strFileName = .GetFileName
'Debug.Print strFileName
strCreator = .GetInfo("Creator")
'Debug.Print strCreator
strProducer = .GetInfo("Producer")
'Debug.Print strProducer
.Close
End If
End With
Set oDoc = Nothing
Set oApp = Nothing
metaData(0) = strFileName
metaData(1) = strCreator
metaData(2) = strProducer
ReadPDFMetaData2 = metaData
End Function