关于用VBA将PDF另存为JPG图片文件的报错问题

chinalqw

各位大佬：
       近日我在家学习了一种通过VBA将PDF文件转为JPG图片的方法，并且也下载的附件，详见下贴的6、7楼：
       请教pdf转图片问题-Excel VBA程序开发-ExcelHome技术论坛


       引用上贴6楼的附件为： PDF Cov JPG.rar
       引用上贴7楼的代码为：

1. Sub test()
   
2. 
   
3.     Dim oaapp As New Acrobat.AcroApp
   
4.     Dim oaavd As New Acrobat.AcroAVDoc
   
5.     Dim oapdd As Acrobat.AcroPDDoc
   
6.     Dim i As Long
   
7.     Dim jso As Object
   
8. 
   
9.     i = oaapp.Show
   
10. 
    
11.     i = oaavd.Open("D:\TEST.pdf", "")
    
12. 
    
13.     Set oapdd = oaavd.GetPDDoc()
    
14. 
    
15.     Set jso = oapdd.GetJSObject
    
16.    
    
17.     jso.SaveAs "D:\test-01.jpeg", "com.adobe.acrobat.jpeg"
    
18. 
    
19.     i = oaavd.Close(1)
    
20. 
    
21.     i = oaapp.Hide
    
22.     i = oaapp.Exit
    
23. 
    
24.     Set jso = Nothing
    
25.     Set oaavd = Nothing
    
26.     Set oaapp = Nothing
    
27.    
    
28. End Sub

复制代码

       感谢 yyfdh 老师的分享！！！


       不过本人在测试的过程中，执行到JSObject对象的SaveAs这一行时，总是报“试图写入文件时发生错误。这可能与磁盘空间不足有关”的错误，如图：


        本人的电脑环境是 Microsoft Office Professional Plus 2013 和 Adobe Acrobat Pro Continuous Release | 版本2023.008.20555 ； VBA引用的是 Adobe Acrobat 10.0 Type Labrary 。


       请教大神老师们，这个报错是怎么回事？


       另外，通过AI解答出来的 PDPage对象 (AcroPDDoc.AcquirePage(0) 对象) 的 SaveAsImage 和 Export 方法也都报不支持的错误，也请大神老师们解惑。


        小弟拜谢！！

chinalqw

请大佬们关注一下呀。