【源码开放】Word与PDF批量互转（要求版本：2007以上）

roych

       这是培训群里一个群友今天提出的问题。顺手做了个例子，供大家使用。

       据说，将文件发布为XPS或者PDF是Office 2007版就有的功能，——不过我几乎没用过2007版，而是2010和2013版的。由此PDF与Word之间的互转就方便了很多。需要注意的是：

• 扫描的PDF属于图片形式，如果使用了这个功能，我只能告诉你，这会成为你了解乱码的一个途径。
• 另外，加密的PDF应该也是无法转换的。
• 即便PDF可以转Word，如果含有表格或者图片等对象，往往会出现格式问题，需要进一步修改。所以不太建议这样转。
  

       不过，我们Word批量转PDF还是没问题的。按惯例，这时候应该贴代码了（PDFToWord请参考附件，采用“打开/另存”方式即可转，这里不再贴代码）：

1. Sub WordToPDF()
   
2. '文件拾取器
   
3. Dim fd As FileDialog
   
4. '定义word应用程序和word文档组件
   
5. Dim objWord As Word.Application
   
6. Dim doc As Word.Document
   
7. '定义PDF文件名（绝对路径）
   
8. Dim strNewName As String
   
9. 
   
10. Dim i As Long
    
11. 
    
12. Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
13. With fd
    
14.         .AllowMultiSelect = True
    
15.         '清空默认，只允许打开word文档
    
16.         .Filters.Clear
    
17.         .Filters.Add "Word文档", "*.doc;*.docx"
    
18.         '如果打开
    
19.         If .Show = -1 Then
    
20.             Set objWord = New Word.Application
    
21.             For i = 1 To fd.SelectedItems.Count
    
22.                 Set doc = objWord.Documents.Open(fd.SelectedItems(i))
    
23.                 strNewName = Left(doc.FullName, InStr(1, doc.FullName, ".") - 1) & ".pdf"
    
24.             '如果文件存在则删除
    
25.                 If Len(Dir(strNewName)) > 0 Then Kill strNewName
    
26.             '导出PDF文档，并关闭Word
    
27.                 doc.ExportAsFixedFormat strNewName, wdExportFormatPDF
    
28.                 doc.Close
    
29.             Next
    
30.           MsgBox "已转换完毕", vbInformation, "Roych提醒您"
    
31.         End If
    
32. End With
    
33. objWord.Quit
    
34. End Sub

复制代码

newglord

好东西

purplerose

好的，下载下来试一下，谢了

WFH6898

好东西，收了，谢谢分享

purplerose

ROYCH，您这个是适合于什么版本呀？

purplerose

WORD2003不能批量转，可以用半手工的方法，具体方法是看附件，可能有高手已经知道了，我也许发的太多余了吧，不要怪我哟！{:soso_e106:}{:soso_e183:}

xie62

谢谢分享！

ithink2012

好奇，学习下

aodou51899

word2003能用吗？

admin

下载瞧瞧。谢谢分享！
以前一直要使用API来实现这个，的确很烦