使用VBA将PDF另存为PDF/X时遇UnsupportedValueError问题求助

错误原因 #

你遇到的UnsupportedValueError: Value is Unsupported Parameter cConvId，是因为原代码中JSO.SaveAs使用的格式标识符"com.adobe.acrobat.pdfx"不符合Acrobat JavaScript API的要求，且缺少PDF/X标准的具体配置参数。

修正方案1：带配置参数的JSO.SaveAs #

使用SaveParams对象指定具体的PDF/X标准，确保转换参数正确：

Sub SaveAsPDFX_Correct()
    Dim AcroApp As Acrobat.CAcroApp
    Dim PDDoc As Acrobat.CAcroPDDoc
    Dim JSO As Object
    Dim saveParams As Object
    
    Set AcroApp = CreateObject("AcroExch.App")
    Set PDDoc = CreateObject("AcroExch.PDDoc")
    
    ' 打开PDF文件（检查是否打开成功）
    If PDDoc.Open("c:\test.Pdf") Then
        Set JSO = PDDoc.GetJSObject
        Set saveParams = CreateObject("Adobe.Acrobat.SaveParams")
        
        ' 指定目标PDF/X标准，可替换为PDF/X-4:2010等其他标准
        saveParams.cPDFXVersion = "PDF/X-1a:2003"
        saveParams.bPDFX = True ' 启用PDF/X转换模式
        
        ' 执行保存操作，格式指定为"Adobe PDF"
        JSO.SaveAs "c:\testx.Pdf", "Adobe PDF", True, saveParams
        
        PDDoc.Close
    End If
    
    ' 释放对象资源
    Set saveParams = Nothing
    Set JSO = Nothing
    Set PDDoc = Nothing
    Set AcroApp = Nothing
End Sub

修正方案2：使用ExportAsFormat方法 #

通过Acrobat的ExportAsFormat方法直接指定PDF/X导出格式：

Sub ExportToPDFX()
    Dim AcroApp As Acrobat.CAcroApp
    Dim PDDoc As Acrobat.CAcroPDDoc
    Dim exportParams As Object
    
    Set AcroApp = CreateObject("AcroExch.App")
    Set PDDoc = CreateObject("AcroExch.PDDoc")
    
    If PDDoc.Open("c:\test.Pdf") Then
        Set exportParams = CreateObject("Adobe.Acrobat.ExportParams")
        ' 指定PDF/X-1a格式标识符
        exportParams.ExportFormat = "com.adobe.acrobat.pdfx-1a"
        
        ' 执行导出，第一个参数0表示覆盖现有文件
        PDDoc.ExportAsFormat 0, "c:\testx.Pdf", exportParams
        
        PDDoc.Close
    End If
    
    Set exportParams = Nothing
    Set PDDoc = Nothing
    Set AcroApp = Nothing
End Sub

注意事项 #

• 仅Acrobat Pro支持PDF/X转换，Acrobat Reader无此功能
• 避免使用系统根目录（如C:\）保存文件，防止权限不足导致失败
• 可根据需求修改cPDFXVersion或ExportFormat为其他PDF/X标准，如"PDF/X-4:2010"

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