Question

昨晚我实现了用adobeacrobat pro dc打开png文件并将它们保存为pdf格式。它工作得很好，我设置了一个文件夹，它在每个文件夹和子文件夹中搜索 png 文件，当它找到某人时，它会用 acrobat 打开，然后将其保存为 pdf 格式。今天没有任何作用，而且，仅适用于单个文件的原始代码也不起作用

Sub OpenHow()
Dim Acroapp As New Acrobat.Acroapp
Dim pddoc As New Acrobat.AcroPDDoc

    Set Acroapp = CreateObject("AcroExch.App")
    Set pddoc = CreateObject("AcroExch.pddoc")
    
    pddoc.Open ("C:/1.png")
    
    pddoc.Save PDSaveFull, "C:/1.pdf"
    
    Acroapp.Exit

            
End Sub

任何可能出错的线索？：S

提前致谢

Answer 1

没关系，我真的不知道我何时或为什么删除了 avdoc 对象。以防万一有人会发现它有用这里是正确的代码

Sub OpenHow()
Dim avdoc As New Acrobat.AcroAVDoc
Dim Acroapp As New Acrobat.Acroapp
Dim pddoc As New Acrobat.AcroPDDoc

    Set Acroapp = CreateObject("AcroExch.App")
    Set avdoc = CreateObject("acroexch.avdoc")
    
    avdoc.Open "C:\1.png", ""
    Set pddoc = avdoc.GetPDDoc()
    
    pddoc.Save PDSaveFull, "C:\1.pdf"
    
    Acroapp.Exit
    Acroapp.CloseAllDocs
    Set Acroapp = Nothing
    Set avdoc = Nothing
    Set pddoc = Nothing    
            
End Sub

希望有人觉得它有用

用adobeacrobat pro dc vba打开png文件

1 个答案: