使用 adobe acrobat pro dc vba 打开 png 文件答案

【问题标题】：open png file with adobeacrobat pro dc vba使用 adobe acrobat pro dc vba 打开 png 文件
【发布时间】：2021-06-26 16:23:40
【问题描述】：

昨晚我实现了用 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

提前致谢

【问题讨论】：

在有效和无效之间没有任何变化？文件 png 是否总是在同一个位置？
什么都没有改变，没有人可以代替我修改这个文件。修改此代码，我昨晚能够生成....10000 个 pdf 文件。一开始很混乱，因为它只转换它找到的第一个子文件夹中的文件，但我能够修复它。

标签： excel vba acrobat

【解决方案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

希望有人觉得它有用

【讨论】：