VBA代码转换PDF为其他文件格式,如docx/jpg/xlsx/txt等

游乐缘

最近与PDF有缘，遇到一些PDF相关的需求。在此分享利用Acrobat库的JSO对象，在指定的PDF文件相同路径下，按照指定的类型另存文件。
支持转换的文件类型有："eps", "html", "htm", "jpeg", "jpg", "jpe", "jpf", "jpx", "jp2", "j2k", "j2c", "jpc", "docx", "doc", "png", "ps", "rft", "xlsx", "xls", "txt", "tiff", "tif", "xml", "html"*
*新增转换类型"html"

作者水平有限，如有问题，欢迎反馈。

1. Option Explicit
   
2. 'Tools -> Reference -> Acrobat
   
3. Sub test()
   
4.     Dim sFilePathPDF As String, sFileExtension As String
   
5.    
   
6.     sFilePathPDF = "C:\Temp\testConvert.pdf"
   
7.     sFileExtension = "jpg"
   
8.    
   
9.     ConvertPDF sFilePathPDF, sFileExtension
   
10. End Sub
    
11. 
    
12. Sub ConvertPDF(sFilePathPDF As String, sFileExtension As String)
    
13. 
    
14.     Dim objAcroApp As New Acrobat.AcroApp
    
15.     Dim objAcroAVDoc As New Acrobat.AcroAVDoc
    
16.     Dim objAcroPDDoc As Acrobat.AcroPDDoc
    
17.     Dim lRet As Long
    
18.     Dim jso As Object
    
19.     Dim sFilePath As String
    
20.     Dim sExportFormat As String
    
21.    
    
22.     If Dir(sFilePathPDF) = "" Then
    
23.         MsgBox "File not found!", _
    
24.                 vbCritical, "File Path Error"
    
25.         Exit Sub
    
26.     End If
    
27.     If LCase(Right(sFilePathPDF, 3)) <> "pdf" Then
    
28.         MsgBox "Not PDF file!", vbCritical, "File Type Error"
    
29.         Exit Sub
    
30.     End If
    
31.    
    
32.     Select Case sFileExtension
    
33.         Case "eps"
    
34.             sExportFormat = "com.adobe.acrobat.eps"
    
35.         Case "html", "htm"
    
36.             sExportFormat = "com.adobe.acrobat.html"
    
37.         Case "jpeg", "jpg", "jpe"
    
38.             sExportFormat = "com.adobe.acrobat.jpeg"
    
39.         Case "jpf", "jpx", "jp2", "j2k", "j2c", "jpc"
    
40.             sExportFormat = "com.adobe.acrobat.jp2k"
    
41.         Case "docx"
    
42.             sExportFormat = "com.adobe.acrobat.docx"
    
43.         Case "doc"
    
44.             sExportFormat = "com.adobe.acrobat.doc"
    
45.         Case "png"
    
46.             sExportFormat = "com.adobe.acrobat.png"
    
47.         Case "ps"
    
48.             sExportFormat = "com.adobe.acrobat.ps"
    
49.         Case "rft"
    
50.             sExportFormat = "com.adobe.acrobat.rft"
    
51.         Case "xlsx"
    
52.             sExportFormat = "com.adobe.acrobat.xlsx"
    
53.         Case "xls"
    
54.             sExportFormat = "com.adobe.acrobat.spreadsheet"
    
55.         Case "txt"
    
56.             sExportFormat = "com.adobe.acrobat.accesstext"
    
57.         Case "tiff", "tif"
    
58.             sExportFormat = "com.adobe.acrobat.tiff"
    
59.         Case "xml"
    
60.             sExportFormat = "com.adobe.acrobat.xml-1-00"
    
61.         Case "html"
    
62.             sExportFormat = "com.adobe.acrobat.html-3-20"
    
63.         Case Else
    
64.             sExportFormat = "NA"
    
65.     End Select
    
66.    
    
67.     If sExportFormat <> "NA" Then
    
68.         sFilePath = Left(sFilePathPDF, InStrRev(sFilePathPDF, ".")) & sFileExtension
    
69.         lRet = objAcroApp.Show
    
70.         lRet = objAcroAVDoc.Open(sFilePathPDF, "")
    
71.         Set objAcroPDDoc = objAcroAVDoc.GetPDDoc()
    
72.         'JavaScript Object
    
73.         Set jso = objAcroPDDoc.GetJSObject
    
74.         jso.SaveAs sFilePath, sExportFormat
    
75.    
    
76.         lRet = objAcroAVDoc.Close(1)
    
77.         lRet = objAcroApp.Hide
    
78.         lRet = objAcroApp.Exit
    
79.    
    
80.         Set jso = Nothing
    
81.         Set objAcroAVDoc = Nothing
    
82.         Set objAcroApp = Nothing
    
83.     End If
    
84. End Sub

复制代码

游乐缘

大家如有Acrobat的问题欢迎讨论！

丸子不是小孩子

感谢大神分享~~~

游乐缘

丸子不是小孩子 发表于 2022-3-14 17:13
感谢大神分享~~~

过奖过奖，学到用到的东西及时分享，这样代码的用处更大

acc091

你好，这里出现了这个提示

morpheus126

游乐缘 发表于 2022-3-14 19:42
过奖过奖，学到用到的东西及时分享，这样代码的用处更大

经常看到楼主，是个好人！
想问一下，如果是后期绑定，应该如何引用
然后请问是否有Acrobat库的手册什么的可以分享一下
谢谢！

游乐缘

acc091 发表于 2022-3-15 10:49
你好，这里出现了这个提示

前期绑定，需要在“工具”->“引用”Acrobat库

游乐缘

morpheus126 发表于 2022-3-15 10:54
经常看到楼主，是个好人！
想问一下，如果是后期绑定，应该如何引用
然后请问是否有Acrobat库的手册什 ...

还没试过Acrobat的后期绑定。。可以试试定义对象变量的部分：

1. Dim objAcroApp As New Acrobat.AcroApp
   
2.     Dim objAcroAVDoc As New Acrobat.AcroAVDoc
   
3.     Dim objAcroPDDoc As Acrobat.AcroPDDoc

复制代码

修改为：

1. Dim objAcroApp As Object
   
2.     Dim objAcroAVDoc As Object
   
3.     Dim objAcroPDDoc As Object
   
4.     Set objAcroApp = CreateObject("Acrobat.AcroApp")
   
5.     Set objAcroAVDoc = CreateObject("Acrobat.AcroAVDoc")
   
6.     Set objAcroPDDoc = CreateObject("Acrobat.AcroPDDoc")

复制代码

在参考资料《AcrobatSDK_IACGuide》中，介绍Acrobat会用到的各种对象属性方法，附件是英文版的，不太清楚有没有中文版。

acc091

游乐缘 发表于 2022-3-15 10:55
前期绑定，需要在“工具”->“引用”Acrobat库

原来是这样

游乐缘

新增转换类型：html