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

sulli112

游乐缘 发表于 2022-3-25 13:11
举例说明，ConvertPDF "C:\Temp\testConvert.pdf", TypeJpeg
第一参数是PDF文件路径，转换后的JPG文件在 ...

游乐缘

sulli112 发表于 2022-3-25 14:21

TYPESOCX应为TypeDocx，对吧？在本地再次测试了一次，方法没有问题，劳烦确认运行环境，比如写入的代码是否完整，用户电脑是否已安装Acrobat。

游乐缘

xd3210 发表于 2022-3-25 14:03
两种方法都试了，转换为.docx格式报错

请问安装的是什么版本的Acrobat？

sulli112

游乐缘 发表于 2022-3-25 14:47
TYPESOCX应为TypeDocx，对吧？在本地再次测试了一次，方法没有问题，劳烦确认运行环境，比如写入的代码是 ...

，上面那个typedocx我打字的时候打错了，但是在代码中，我是按照上面复制的，所以运行没错，但是会出现这个问题

xd3210

游乐缘 发表于 2022-3-25 14:48
请问安装的是什么版本的Acrobat？

acrobat 9.1.2 pro

游乐缘

sulli112 发表于 2022-3-25 15:07
，上面那个typedocx我打字的时候打错了，但是在代码中，我是按照上面复制的，所以运行没错，但是会出现这 ...

多半是Acrobat相关的问题吧

sulli112

游乐缘 发表于 2022-3-25 15:19
多半是Acrobat相关的问题吧

是不是9版本都用不了

游乐缘

sulli112 发表于 2022-3-25 15:29
是不是9版本都用不了

学习Acrobat资料的时候，有一部分内容提到9版本会出现不明原因的error，因为我用的是XI版本，所以当时没太在意。

游乐缘

转换PDF为Word文件的专门工具来了，再也不用担心Acrobat安装和版本的问题了。代码预览如下供参考，免手打代码待审核。

游乐缘

<免手打>PDF转Word

1. Option Explicit
   
2. 
   
3. Sub ConvertPDF2WordFile(pathPDF As String)
   
4. '    Dim objWord  As New Word.Application
   
5. '    Dim objDoc  As Word.Document
   
6.     Dim objWord  As Object, objDoc As Object
   
7.     Dim TrimFile As String
   
8.     Set objWord = CreateObject("Word.Application")
   
9.     Set objDoc = CreateObject("Word.Document")
   
10.    
    
11.     On Error Resume Next
    
12.     Set objDoc = objWord.Documents.Open(pathPDF)
    
13.     On Error GoTo 0
    
14.    
    
15.     If Not objDoc Is Nothing Then
    
16.         TrimFile = Left(objDoc.Name, InStrRev(objDoc.Name, ".") - 1)
    
17.         objDoc.SaveAs2 Filename:=objDoc.Path & "" & TrimFile, FileFormat:=wdFormatDocumentDefault
    
18.     End If
    
19.     objDoc.Close: Set objDoc = Nothing
    
20.     Shell "powershell.exe kill -processname winword", vbMinimizedFocus
    
21. End Sub
    
22. 
    
23. Sub test()
    
24.     Dim fn As String
    
25.     fn = "C:\Temp\testConvert.pdf"
    
26.     ConvertPDF2WordFile fn
    
27. End Sub

复制代码