word 批量转换成pdf

twtynui123

终于找到好东东啦。1~@##￥%￥#

landouer

luckfish45 发表于 2012-1-20 20:58
今天下午有空，帮你编了个 word批量打印助手，原创啊：），使用方法见下面的图，我这个程序你只要把包含doc ...

这个挺好用的，但是能不能实现批量转换的同时批量重命名，就是说转成的PDF文件和原来的Word文件的名称是不一样，批量转换时还是要一个一个改名字，这样也很麻烦，有没有更简便的方法实现，求指导

loquat

1. Sub BatchWORD2PDF()
   
2.      Dim SplitPos As Integer, DotPos As Integer, FullPath As String
   
3.      Dim fdPath As Variant
   
4.      Dim str As String, n As Long, fd As FileDialog, Ext As String
   
5.      Dim t
   
6.      t = Timer
   
7.      On Error GoTo err
   
8.      Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
9.      With fd
   
10.          .Title = "选择目标文件夹"
    
11.          If .Show = -1 Then fdPath = .SelectedItems(1) Else Exit Sub
    
12.      End With
    
13.      str = Dir(fdPath & "\*.doc")  '获取文件名
    
14.      While Len(str) > 0
    
15.          n = n + 1
    
16.          Documents.Open filename:=fdPath & "" & str  '打开文件
    
17.          Ext = CreateObject("Scripting.FileSystemObject").GetExtensionName(str) 'FSO获取扩展名         
    
18.          'DotPos = InStrRev(str, ".")          'VBA自身方法获取扩展名
    
19.          'If DotPos = 0 Then DotPos = Len(str)
    
20.          'Ext = Mid(str, DotPos + 1)         
    
21.          ActiveDocument.ExportAsFixedFormat OutputFileName:=(fdPath & "" & Replace(str, Ext, "pdf")), _
    
22.                                             ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
    
23.                                             wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
    
24.                                             Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
    
25.                                             CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
    
26.                                             BitmapMissingFonts:=True
    
27.          ActiveDocument.Close False
    
28.          str = Dir()
    
29.      Wend
    
30.      Set fd = Nothing
    
31. err:
    
32. End Sub

复制代码

还未添加子目录递归。高手添加吧。

Howard7738

建议直接用adobe acrobat, 多个文件可以一次性添加进去，还可以调整顺序，特别是质量很好

weirongmin

有用，正好用得上。

loquat

luckfish45 发表于 2012-1-20 20:58
今天下午有空，帮你编了个 word批量打印助手，原创啊：），使用方法见下面的图，我这个程序你只要把包含doc ...

这个软件只能调用Tin月PDF？我调用了一个PDF XChanger Printer 2012好像不执行。
希望您有时间能更新下。

husthkp

叼
顶一下，。。。。。。。。。。

黎明体验

luckfish45 发表于 2012-1-20 20:58
今天下午有空，帮你编了个 word批量打印助手，原创啊：），使用方法见下面的图，我这个程序你只要把包含doc ...

大侠，为什么有木马？？？5555555

黎明体验

loquat 发表于 2014-4-27 19:10
这个软件只能调用Tin月PDF？我调用了一个PDF XChanger Printer 2012好像不执行。
希望您有时间能更新下。 ...

为什么我下了这个，检查说有木马？您那里有这种情况么？

loquat

黎明体验 发表于 2014-4-30 15:37
为什么我下了这个，检查说有木马？您那里有这种情况么？

无此情况。。。