петля через папку PDF-файлов

Question

Я хотел бы пропустить папку из файлов PDF и вставить файл в соответствующее текстовое поле документа Word.

Я не смог найти много информации об этом, но я попытался смоделировать свой код при переходе через папку с файлами excel ... Я не пытался его вставлять в PDF-файлы, но я пытаюсь решить эту проблему проблема первый. BTW У меня есть Adobe Reader, а не Adobe Professional, если это помогает.

Я отлажена код и ошибка на Set fromPDF = AcroExch.PDDoc.Open(sPath & sFile) ...

Любая помощь будет оценена.

Sub UseTextBox() 

Dim reportDoc As Object 
Dim str As String 
Dim tag As String 
Dim pdfName As String 

Set reportDoc = ActiveDocument 
MsgBox reportDoc 

Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
Application.EnableEvents = False 


'match PDF to figure and insert 
Set SelectFolder = Application.FileDialog(msoFileDialogFolderPicker) 
    With SelectFolder 
     .Title = "Select Directory" 
     .AllowMultiSelect = False 
     If .Show <> -1 Then GoTo ResetSettings 
     sPath = .SelectedItems(1) & "\" 
    End With 



sFile = Dir(sPath & "*pdf") 
Do While sFile <> "" 
    Set fromPDF = AcroExch.PDDoc.Open(sPath & sFile) 
    pdfName = sFile 


For Each objShape In reportDoc.Shapes 
    If objShape.Type = msoTextBox Then 
     str = objShape.TextFrame.TextRange.Text 
     If InStr(str, "(") > 0 Then 

      tag = BetweenParentheses(objShape.TextFrame.TextRange) 
      MsgBox tag 
     End If 
    End If 
Next objShape 
sFile = Dir 
Loop 

ResetSettings: 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
Application.EnableEvents = False 



End Sub 

Answer 1

Где вы являетесь объектом AcroExch? Думаю, это может быть вашей проблемой.

Вам может понадобиться что-то вроде:

Set MyObject = CreateObject("AcroExch.PDDoc")