VBA Autofill Textboxes Datas From a PDF File

[Tayl4n]

Hello everyone,

First of all I sincerely wish you all a wonderful new year.

My question is:

I have a Word userform and it works clearly. We fill the data in the textbox and combobox manually by looking at a pdf file. I would like to add one more button like "select pdf file" then I want to select the pdf file and automatically pull the necessary data into the boxes. Is this possible? If it is could you please help me with example.

Note: PDF files are standardized and contain technical information about a product.
Ex:
Weight 10 Kg
Length: 20 M
.
.
.
goes like this.

And textboxes like:

weight of the product:
length of the product:


Kindly regards,
T

 

[hydraulicwave]

Yes, it is possible to add a button to your Word userform that allows you to select a PDF file and extract data from it. Here is an example of how you could do this using a combination of the File Dialog object and the Adobe Acrobat COM object:

1. First, you will need to add a reference to the "Adobe Acrobat XX.X Type Library" (where XX.X is the version of Acrobat you have installed) in your Word VBA project. To do this, go to the "Tools" menu in the VBA editor, select "References," and check the box next to the Adobe Acrobat library.
2. Next, add a button to your userform and give it a meaningful caption, such as "Select PDF File."
3. Double-click the button to open the code editor and add the following code:

Private Sub btnSelectPdf_Click() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker)

' Set filter to only show PDF files fd.Filters.Clear fd.Filters.Add "PDF Files", "*.pdf"

' Show the file picker and exit if the user clicks Cancel If fd.Show = False Then Exit Sub

' Open the selected PDF file using the Acrobat COM object Dim acroApp As AcroApp Dim acroAVDoc As AcroAVDoc Dim acroPDDoc As AcroPDDoc Set acroApp = CreateObject("AcroExch.App") Set acroAVDoc = CreateObject("AcroExch.AVDoc") If acroAVDoc.Open(fd.SelectedItems(1), "") Then Set acroPDDoc = acroAVDoc.GetPDDoc Else MsgBox "Error opening PDF file" Exit Sub End If

' Extract data from the PDF file and populate the form fields txtWeight.Value = acroPDDoc.GetInfo("Weight") txtLength.Value = acroPDDoc.GetInfo("Length")

' Close the PDF document and release the COM objects acroAVDoc.Close True Set acroPDDoc = Nothing Set acroAVDoc = Nothing Set acroApp = Nothing End Sub

This code uses the File Dialog object to allow the user to select a PDF file, and then opens the file using the Adobe Acrobat COM object. It then extracts the desired data from the PDF using the GetInfo method of the AcroPDDoc object, and populates the form fields with the extracted data. Finally, it closes the PDF file and releases the COM objects.

 

[Tayl4n]

Yes, it is possible to add a button to your Word userform that allows you to select a PDF file and extract data from it. Here is an example of how you could do this using a combination of the File Dialog object and the Adobe Acrobat COM object:

1. First, you will need to add a reference to the "Adobe Acrobat XX.X Type Library" (where XX.X is the version of Acrobat you have installed) in your Word VBA project. To do this, go to the "Tools" menu in the VBA editor, select "References," and check the box next to the Adobe Acrobat library.
2. Next, add a button to your userform and give it a meaningful caption, such as "Select PDF File."
3. Double-click the button to open the code editor and add the following code:

Private Sub btnSelectPdf_Click() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker)

' Set filter to only show PDF files fd.Filters.Clear fd.Filters.Add "PDF Files", "*.pdf"

' Show the file picker and exit if the user clicks Cancel If fd.Show = False Then Exit Sub

' Open the selected PDF file using the Acrobat COM object Dim acroApp As AcroApp Dim acroAVDoc As AcroAVDoc Dim acroPDDoc As AcroPDDoc Set acroApp = CreateObject("AcroExch.App") Set acroAVDoc = CreateObject("AcroExch.AVDoc") If acroAVDoc.Open(fd.SelectedItems(1), "") Then Set acroPDDoc = acroAVDoc.GetPDDoc Else MsgBox "Error opening PDF file" Exit Sub End If

' Extract data from the PDF file and populate the form fields txtWeight.Value = acroPDDoc.GetInfo("Weight") txtLength.Value = acroPDDoc.GetInfo("Length")

' Close the PDF document and release the COM objects acroAVDoc.Close True Set acroPDDoc = Nothing Set acroAVDoc = Nothing Set acroApp = Nothing End Sub

This code uses the File Dialog object to allow the user to select a PDF file, and then opens the file using the Adobe Acrobat COM object. It then extracts the desired data from the PDF using the GetInfo method of the AcroPDDoc object, and populates the form fields with the extracted data. Finally, it closes the PDF file and releases the COM objects.

Dear hydraulicwave,

I can't thank you enough. I can choose a PDF file and I'm feeling getting close to this purpose thanks to you. But after the choosing PDF I'm facing with an error and debug showing this part Set acroApp = CreateObject("AcroExch.App")
It is probably about tools and references part but I check the boxes all relative with adobe. Do you know which box I missed ?

 

[Tayl4n]

Dear hydraulicwave,

I can't thank you enough. I can choose a PDF file and I'm feeling getting close to this purpose thanks to you. But after the choosing PDF I'm facing with an error and debug showing this part Set acroApp = CreateObject("AcroExch.App")
It is probably about tools and references part but I check the boxes all relative with adobe. Do you know which box I missed ?

Run-time error '-2146959355 (80080005)': No such interface supported.

 

[Tayl4n]

I updated Adobe Acrobat Reader to Pro. Error gone but still it is not working. It is opening the pdf file and close too quickly but textboxes are remain empty please help.

 

[Tayl4n]

I found out that codes extract metada from pdf and works fine. But my datas inside the texts not from metada. So if I do this txtLength.Value = acroPDDoc.GetInfo("Producer") then textbox filling as "Xyz". But I can't get the necessary information from here, such as length and weight.

Title
Subject
Keywords
Author
Creator
Producer	Xyz
CreationDate	Fri Dec 23 17:51:01 2022
ModDate	Fri Dec 23 17:55:55 2022
Tagged	no
UserProperties	no
Suspects	no
Form	none
JavaScript	no
Pages	2
Encrypted	no
Page size	595 x 842 pts (A4)
Page rot	0
File size	317234 bytes
Optimized	no
PDF version	1.4