VBA填充多行PDF？

Sub FillPDF()
    Dim AcroApp As Object
    Dim AcroAVDoc As Object
    Dim AcroForm As Object
    Dim i As Integer
    
    ' 创建Acrobat对象
    Set AcroApp = CreateObject("AcroExch.App")
    
    ' 打开PDF文件
    Set AcroAVDoc = CreateObject("AcroExch.AVDoc")
    AcroAVDoc.Open "C:\path\to\your\pdf.pdf", ""
    Set AcroForm = AcroAVDoc.GetPDDoc.GetForm
    
    ' 填充PDF表单字段
    AcroForm.Fields("Field1").Value = "Value1"
    AcroForm.Fields("Field2").Value = "Value2"
    AcroForm.Fields("Field3").Value = "Value3"
    
    ' 保存并关闭PDF文件
    AcroAVDoc.GetPDDoc.Save PDSaveFull, "C:\path\to\save\filled\pdf.pdf"
    AcroAVDoc.Close True
    
    ' 释放对象
    Set AcroForm = Nothing
    Set AcroAVDoc = Nothing
    Set AcroApp = Nothing
End Sub