Sub Robo4uj()
'On Error Resume Next
Dim answer, FileNum, r%, wb As Workbook, Data$
answer = Application.GetOpenFilename(Title:="Выбрать файл", FileFilter:="PDF Files *.pdf (*.pdf),")
CreateObject("wscript.shell").Run """" & answer & """"
Debug.Print answer
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "^+S", 10
SendKeys "~", 10
SendKeys "^q", 10
answer = Replace(answer, ".pdf", ".txt")
   With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & answer, Destination:=Range("$A$1"))
    .TextFilePlatform = 65001
    .Refresh BackgroundQuery:=False
   End With
   Debug.Print answer
Kill (answer)
End Sub
 

Sub PdfToText()
Dim answer, source As String, dest As String, exe As String, wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
answer = Application.GetOpenFilename(Title:="Please choose a file to import", FileFilter:="PDF Files *.pdf (*.pdf),")
If answer = False Then
MsgBox "No file specified.", vbExclamation, "Warning"
Exit Sub
End If
source = answer
exe = "c:\Documents and Settings\vvv\Ðàáî÷èé ñòîë\oper\bin32\pdftotext.exe"
dest = Replace(source, ".pdf", ".txt")
wsh.Run exe & " " & source & " -layout", vbHide, True
Workbooks.OpenText Filename:=dest, StartRow:=1, DataType:=xlFixedWidth, _
TrailingMinusNumbers:=True
End Sub
 

... 
Dim oPDTextSelect As Acrobat.AcroPDTextSelect
Dim i As Long   
    '1. Открываем PDF-файл.
    oPDDocument.Open sPath
    
    '2. Берём нужную страницу. Страницы в PDF в VBA нумеруются с нуля.
    Set oPDPage = oPDDocument.AcquirePage(0)
    
    '3. Указываем, с какого по счёту слова взять слова и сколько
    'слов взять. Максимально в объект AcroHiliteList можно взять 32767 слова.
    oHiliteList.Add nOffset:=0, nLength:=32767
    
    '4. Берём слова в объект oPDTextSelect.
    Set oPDTextSelect = oPDPage.CreateWordHilite(oHiliteList)
    
    '5. Просматриваем взятые слова.
    For i = 0 To oPDTextSelect.GetNumText - 1 Step 1
        Debug.Print oPDTextSelect.GetText(i)
    Next i
...