我来帮你排查并解决这个运行时错误的问题——你遇到的Object does not support this property or method错误，主要是因为直接调用AcroExch.AVDoc的Save方法的方式不对，同时代码逻辑还有个隐藏问题：循环中重复修改同一个打开的PDF实例，会导致后续生成的文件继承之前的修改，而不是基于原始表单重新填充。

核心问题分析 #

• 保存对象错误：AcroExch.AVDoc是负责PDF显示的视图对象，更可靠的保存操作应该使用它对应的底层文档对象AcroExch.PDDoc。
• 重复修改同一实例：你只打开一次PDF就循环填充所有行，第二次循环时字段会保留上一次的内容，导致生成的文件不符合预期。
• 文件名合法性风险：如果pr（Parcel number）包含Windows文件名不允许的字符（比如\/:*?"<>|），会导致保存失败。

修正后的完整代码 #

Sub ExportToPDFForms()
    Dim AcrobatApp As Object
    Dim AcrobatAVDoc As Object
    Dim AcrobatPDDoc As Object
    Dim AcroForm As Object
    Dim Fields As Object
    Dim LastRow As Long
    Dim i As Long
    Dim pr As String
    Dim fname As String
    Dim originalPDFPath As String
    Dim saveFolderPath As String
    
    ' 定义路径（建议把路径提出来，方便后续修改）
    originalPDFPath = "C:\Users\Desktop\Projects\Jan 2018\Excel to PDF\Test.pdf"
    saveFolderPath = "C:\Users\Desktop\Projects\Jan 2018\Excel to PDF\docs\"
    
    ' 初始化Acrobat应用
    Set AcrobatApp = CreateObject("AcroExch.App")
    
    ' 操作目标工作表
    With ThisWorkbook.Sheets(1)
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        
        ' 循环处理每一行数据
        For i = 2 To LastRow
            ' 每次循环都重新打开原始PDF表单，避免残留修改
            Set AcrobatAVDoc = CreateObject("AcroExch.AVDoc")
            If Not AcrobatAVDoc.Open(originalPDFPath, "") Then
                MsgBox "无法打开PDF表单，行号: " & i
                GoTo Cleanup
            End If
            
            ' 获取底层的PDDoc对象（这是解决保存错误的关键）
            Set AcrobatPDDoc = AcrobatAVDoc.GetPDDoc()
            
            ' 初始化表单操作对象
            Set AcroForm = CreateObject("AFormAut.App")
            Set Fields = AcroForm.Fields
            
            ' 填充表单字段（注意用.前缀引用当前工作表的Range，避免ActiveSheet问题）
            Fields("Enter county name").Value = .Range("A" & i).Value
            Fields("Enter county served").Value = .Range("B" & i).Value
            Fields("Parcel number").Value = .Range("C" & i).Value
            pr = .Range("C" & i).Value
            Fields("Property owner name").Value = .Range("D" & i).Value
            
            ' 清理文件名中的非法字符，防止保存失败
            pr = Replace(Replace(Replace(Replace(Replace(Replace(Replace(pr, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), """", ""), "<>", ""), "|", "")
            fname = saveFolderPath & pr & ".pdf"
            
            ' 使用PDDoc执行保存操作（这才是正确的保存方式）
            If AcrobatPDDoc.Save(PDSaveFull, fname) = False Then
                MsgBox "无法保存修改后的文档，行号: " & i
            Else
                MsgBox "文档保存成功: " & fname
            End If
            
            ' 清理当前循环的对象，避免内存泄漏
            AcrobatAVDoc.Close True
            Set AcrobatAVDoc = Nothing
            Set AcrobatPDDoc = Nothing
            Set AcroForm = Nothing
            Set Fields = Nothing
        Next i
    End With
    
Cleanup:
    ' 关闭Acrobat应用并释放所有对象
    AcrobatApp.Exit
    Set AcrobatApp = Nothing
    MsgBox "所有操作已完成！"
End Sub

关键修改说明 #

• 每次循环重新打开PDF：确保每个生成的文件都是基于原始表单的干净副本，不会继承上一次的填充内容。
• 使用PDDoc保存：通过AcrobatAVDoc.GetPDDoc()获取底层文档对象，调用它的Save方法彻底解决你遇到的属性/方法不支持错误。
• 文件名合法性处理：替换掉所有Windows不允许的文件名字符，避免因文件名非法导致的保存失败。
• 完善对象清理：每次循环后关闭文档并释放对象，防止Acrobat进程残留或内存泄漏。
• 明确工作表引用：使用With块下的.Range，避免依赖ActiveSheet，让代码更稳定。

内容的提问来源于stack exchange，提问作者Subhan