I have some VBA Code in MS Access that grabs a PDF from an email in Outlook. When I open these PDFs they show that they are in "Protected View" mode. Next to this message is a "Enable All Features" button that removes the protection.
My VBA code loops through the PDF document and grabs the text from each field and then puts it in a table in Access. Because the PDFs are protected, it's unable to grab any of the text from the PDF.
Is there a way with VBA Code to remove the "Protected View" mode from the PDFs once it is open, and prior to my VBA Code running?
Here is my VBA code:
Function GetFileText(strFilePath As String) As String
Dim gPdDoc As Acrobat.CAcroPDDoc
Dim gAvDoc As Acrobat.CAcroAVDoc
'Dim gPDFPath As String
Dim sName As String
Dim lNum As Integer
'Initialize Acrobat by creating App object
Set gApp = CreateObject("AcroExch.App")
'Set AVDoc object
'gAvDoc = gApp.GetActiveDoc
Set gAvDoc = CreateObject("AcroExch.AVDoc")
' open the PDF
If gAvDoc.Open(strFilePath, "") Then
'Set PDDoc object and get some data
Set gPdDoc = gAvDoc.GetPDDoc
lNum = gPdDoc.GetNumPages
sName = gPdDoc.GetFileName
GetFileText = Acro_GetPageText(strFilePath, gPdDoc, gAvDoc)