求助：通过Excel VBA在Acrobat Reader DC的扫描PDF填充数据并签名

核心思路 #

利用你已有的Acrobat Access 3.0 Type Library引用，通过VBA调用Acrobat的JavaScript对象操作PDF：遍历Excel中的唯一ID匹配对应PDF文件，在PDF左上角添加文本字段，再调用Reader DC的预设签名完成操作，无需依赖你看不懂的API/JSON代码。

可直接尝试的VBA代码 #

Sub BatchProcessPDFs()
    Dim excelWB As Workbook
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim uniqueID As String
    Dim pdfFolderPath As String
    Dim pdfFullPath As String
    Dim acroDoc As AcroPDDoc
    Dim jsObj As Object
    
    ' 替换为你的Excel工作表和唯一ID所在列
    Set excelWB = ThisWorkbook
    Set ws = excelWB.Sheets("Sheet1")
    lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row ' 假设唯一ID在A列
    
    ' 替换为你的PDF存储文件夹路径
    pdfFolderPath = "C:\Your_PDF_Folder\"
    If Right(pdfFolderPath, 1) <> "\" Then pdfFolderPath = pdfFolderPath & "\"
    
    Set acroDoc = New AcroPDDoc
    
    For i = 2 To lastRow ' 跳过表头行
        uniqueID = Trim(ws.Cells(i, "A").Value)
        pdfFullPath = pdfFolderPath & uniqueID & ".pdf"
        
        If Dir(pdfFullPath) <> "" Then
            If acroDoc.Open(pdfFullPath) Then
                Set jsObj = acroDoc.GetJSObject
                
                ' 在左上角添加文本字段（坐标：左,下,右,上，单位为点，1英寸=72点）
                jsObj.addField "UniqueID_Label", "text", 0, Array(20, 750, 130, 780)
                With jsObj.getField("UniqueID_Label")
                    .value = uniqueID
                    .textSize = 14
                    .textColor = jsObj.color.black
                    .fillColor = jsObj.color.white
                    .borderColor = jsObj.color.none
                    .readonly = True ' 设置为只读防止修改
                End With
                
                ' 保存修改后的PDF
                acroDoc.Save 1, pdfFullPath ' 1=完整保存
                
                ' 调用预设签名（需先在Reader DC中配置默认签名）
                On Error Resume Next ' 忽略无默认签名的错误
                jsObj.signatureSign "", "", "", jsObj.Date()
                On Error GoTo 0
                
                acroDoc.Close
            Else
                MsgBox "无法打开PDF：" & pdfFullPath
            End If
        Else
            MsgBox "未找到匹配的PDF文件：" & pdfFullPath
        End If
    Next i
    
    ' 释放对象
    Set jsObj = Nothing
    Set acroDoc = Nothing
    Set ws = Nothing
    Set excelWB = Nothing
    
    MsgBox "批量处理完成！"
End Sub

关键配置与注意事项 #

• 引用确认：在VBA编辑器→工具→引用中，确保勾选Acrobat Access 3.0 Type Library，这是代码运行的核心依赖。
• 签名前置配置：打开Acrobat Reader DC→编辑→首选项→签名→身份与信任，添加并设置默认签名（支持数字证书或图片签名），否则签名步骤会失效。
• 坐标调整：代码中Array(20, 750, 130, 780)是文本框的位置参数，可根据你的PDF页面大小自行调整，确保显示在左上角。
• 扫描PDF兼容性：扫描PDF为图像格式，代码添加的文本是浮在图像上方的表单字段，保存后会永久保留，Reader DC支持该操作。

备选方案（若VBA受限） #

如果Reader DC的权限限制导致VBA无法运行，可尝试：

• Acrobat动作向导：打开Reader DC→工具→动作向导→创建新动作，依次添加「添加文本」（设置文本内容为文件名提取的唯一ID）和「签名」动作，批量选中匹配的PDF执行。
• 小批量手动辅助：用Excel生成唯一ID列表，结合免费工具（如PDFtk）批量添加文本，签名部分手动完成。

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