Read Time33Seconds

Dim AcroApp As CAcroApp
Dim AcroAVDoc As CAcroAVDoc
Dim AcroPDDoc As CAcroPDDoc
Dim AcroHiliteList As CAcroHiliteList
Dim AcroTextSelect As CAcroPDTextSelect
Dim PageNumber, PageContent, Content, i, j
ThisWorkbook.Activate: Sheets("Item Numbers").Activate Range("A2:A" & Cells(Rows.count, "A").End(xlUp).Row).Select Set AcroApp = CreateObject("AcroExch.App") Set AcroAVDoc = CreateObject("AcroExch.AVDoc") Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = False .Title = "Please select the file." If .Show = True Then txtFileName = .SelectedItems(1) 'replace txtFileName with your textbox End If
End With
If AcroAVDoc.Open(txtFileName, vbNull) <> True Then Exit Sub End If Set AcroAVDoc = AcroApp.GetActiveDoc Set AcroPDDoc = AcroAVDoc.GetPDDoc AcroAVDoc.BringToFront

1 0
0 %
Happy
0 %
Sad
0 %
Excited
0 %
Angry
0 %
Surprise

Leave a Reply

Your email address will not be published. Required fields are marked *

Close