vba 批量查询pdf内文字

要批量查询PDF文件内的文字，您可以使用VBA编写一个程序来实现。下面是一个简单的示例代码，可供参考：

Sub SearchPDF()
    Dim objAcroApp As Acrobat.CAcroApp
    Dim objAcroDoc As Acrobat.CAcroPDDoc
    Dim objAcroAVDoc As Acrobat.CAcroAVDoc
    Dim objAcroHiliteList As Acrobat.CAcroHiliteList
    Dim objAcroTextSelect As Acrobat.CAcroPDTextSelect
    Dim objRect As Acrobat.AcroRect
    Dim strSearchString As String
    Dim strPDFPath As String
    Dim intPageNum As Integer
    Dim intNumPages As Integer
    Dim i As Integer
    
    '设置要搜索的字符串
    strSearchString = "搜索字符串"
    
    '设置要搜索的PDF文件路径
    strPDFPath = "C:\Users\用户名\Documents\文件名.pdf"
    
    '创建Acrobat应用程序对象
    Set objAcroApp = CreateObject("AcroExch.App")
    
    '打开PDF文件
    Set objAcroAVDoc = CreateObject("AcroExch.AVDoc")
    If objAcroAVDoc.Open(strPDFPath, "") Then
        Set objAcroDoc = objAcroAVDoc.GetPDDoc()
        intNumPages = objAcroDoc.GetNumPages()
        
        '搜索每一页的文本
        For i = 0 To intNumPages - 1
            intPageNum = i
            Set objAcroTextSelect = objAcroDoc.CreatePageHilite(intPageNum, 0, 0, 0, 0)
            objAcroTextSelect.SelectAll()
            
            '查找匹配的文本
            Set objAcroHiliteList = objAcroTextSelect.FindText(strSearchString)
            If Not objAcroHiliteList Is Nothing Then
                objAcroHiliteList.HighlightAll()
            End If
        Next i
        
        '关闭文档
        objAcroDoc.Close
        Set objAcroDoc = Nothing
    End If
    
    '关闭应用程序
    objAcroAVDoc.Close False
    objAcroApp.Exit
        
    Set objAcroApp = Nothing
    Set objAcroAVDoc = Nothing
    Set objAcroHiliteList = Nothing
    Set objAcroTextSelect = Nothing
End Sub

请注意，此代码需要安装Adobe Acrobat才能正常工作。您需要在VBA引用中添加Acrobat类型库，方法是：

1. 打开VBA编辑器
2. 点击“工具”菜单，然后选择“引用”
3. 在“可用引用”列表中找到“Adobe Acrobat xx.x Type Library”，其中xx.x表示您安装的版本号
4. 选中该引用，然后点击“确定”

希望这可以帮助您开始编写自己的程序！