生成VBA，在PDF中对多个字段进行查询

生成 VBA 代码可以使用 Microsoft Office 提供的内置工具——宏录制器。下面是一个基本的模板，可以根据自己的需求进行修改。

Sub FindFieldsInPDF()
    
    ' 定义变量
    Dim myPath As String ' PDF 文件路径
    Dim myFile As String ' PDF 文件名
    Dim myPage As Long ' PDF 页面数
    Dim myField1 As String ' 第一个字段名称
    Dim myField2 As String ' 第二个字段名称
    Dim myField3 As String ' 第三个字段名称
    
    ' 设置变量值
    myPath = "C:\Users\UserName\Documents\" ' PDF 文件所在路径
    myFile = "myPDF.pdf" ' PDF 文件名
    myPage = 1 ' PDF 页面数
    myField1 = "Field1" ' 第一个字段名称
    myField2 = "Field2" ' 第二个字段名称
    myField3 = "Field3" ' 第三个字段名称
    
    ' 创建 Acrobat 对象
    Dim AcroApp As Object
    Dim AcroDoc As Object
    
    Set AcroApp = CreateObject("AcroExch.App")
    Set AcroDoc = CreateObject("AcroExch.AVDoc")
    
    ' 打开 PDF 文件
    AcroDoc.Open myPath & myFile, "Acrobat"
    
    ' 获得第一个字段的值
    Dim Field1Value As String
    Field1Value = AcroDoc.GetAVPageView.GetField(myField1).Value
    
    ' 获得第二个字段的值
    Dim Field2Value As String
    Field2Value = AcroDoc.GetAVPageView.GetField(myField2).Value
    
    ' 获得第三个字段的值
    Dim Field3Value As String
    Field3Value = AcroDoc.GetAVPageView.GetField(myField3).Value
    
    ' 在 Immediate 窗口输出字段值
    Debug.Print Field1Value
    Debug.Print Field2Value
    Debug.Print Field3Value
    
    ' 关闭 Acrobat 对象
    AcroDoc.Close True
    AcroApp.Exit
    
    Set AcroDoc = Nothing
    Set AcroApp = Nothing
    
End Sub

在这个模板中，首先定义了几个变量，包括 PDF 文件的路径、文件名、页面数以及需要查询的字段名称。然后，创建了 Acrobat 对象，打开 PDF 文件，并且使用 `GetField` 方法获得了每个字段的值。最后，关闭 Acrobat 对象。

注意，这里假设你已经安装了 Adobe Acrobat 软件。如果没有安装，可以先下载安装。另外，VBA 代码可能会因为 Adobe Acrobat 版本不同而出现问题，需要根据自己电脑上的 Acrobat 版本进行调整。