有没有可以将word转换成pdf的方法，批量哦

875418168

制作好的word文档后，需要将其转换成pdf,有什么比较好的方法？批量的最好咯。。。

413191246se

楼主——TinyPDF 虚拟打印机（Word2PDF无水印）或许可以，请下载： TinyPDF 虚拟打印机（Word2PDF无水印）.zip (246.25 KB, 下载次数: 189)

2015-12-6 11:17 上传

点击文件名下载附件

gsertg

Word直接转化为PDF格式（无需安装插件），提供以下两种方法以供参考：
一.单击“文件”按钮，选择“另存为”命令，在弹出的“另存为”页面中的“保存类型（T）"一栏中选择pdf格式，单击”保存“即可。
二.单击“文件”按钮，选择“保存并发送”，在页面的”文件类型“栏下选择”创建PDF/XPS文档“,再单击”创建PDF/XPS“，在弹出的”发布为PDF或XPS“对话框中选定保存位置，输入文件名后，单击”发布“即可。
如有更好方法，欢迎交流。

coleman_lee

用这个软件“Print Conductor”，可以批量将word打印成PDF文件。

875418168

coleman_lee 发表于 2015-12-10 12:36
用这个软件“Print Conductor”，可以批量将word打印成PDF文件。

这个好用不？

loquat

1. Sub 批量转PDF()
   
2. Application.ScreenUpdating = False
   
3. With Application.FileDialog(msoFileDialogFolderPicker)
   
4.     .AllowMultiSelect = False
   
5.     If .Show = -1 Then Folder = .SelectedItems(1)
   
6. End With
   
7. If Right(Folder, 1) <> "" Then Folder = Folder & ""
   
8. Folder = """" & Folder & """"
   
9. With CreateObject("WScript.Shell")
   
10.     .Run Environ$("comspec") & " /c dir " & Folder & "*.doc /s /a:-d /b > C:\aTemp.txt", 0, True  '调用cmd遍历结果
    
11.     aNum = FreeFile
    
12.     Open "C:\aTemp.txt" For Input As #aNum
    
13.         arr = Split(StrConv(InputB(LOF(aNum), aNum), vbUnicode), vbCrLf)  '读取遍历结果
    
14.     Close #aNum
    
15.     .Run Environ$("comspec") & " /c del /f /q C:\aTemp.txt", 0, False  '删除临时文件
    
16. End With
    
17. For i = LBound(arr) To UBound(arr) - 1  '循环
    
18.     With Documents.Open(arr(i))    '打开文件
    
19.         aName = .FullName   '获取完整路径
    
20.         aName = Replace(aName, Mid(aName, InStrRev(aName, ".doc")), ".pdf")  '更改扩展名为pdf
    
21.         .ExportAsFixedFormat OutputFileName:=aName, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=FalseFalse, _
    
22.         OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, CreateBookmarks:=wdExportCreateHeadingBookmarks  '另存为PDF
    
23.         .Close False  '不保存关闭文档
    
24.     End With
    
25. Next
    
26. Application.ScreenUpdating = True
    
27. End Sub

复制代码

daqiz

要批量转换，就安装一个转换器吧，使用起来很方便。

kongl931030

可以下载pdf转换器。。。

晴天！

我上次转换文件的时候，在百度里看到一篇经验，照着做转换成功了，应该也能帮到你：http://jingyan.baidu.com/article/93f9803fe69cf0e0e46f55cd.html

875418168

413191246se 发表于 2015-12-6 11:17
楼主——TinyPDF 虚拟打印机（Word2PDF无水印）或许可以，请下载：

这个是什么啊。安装了直接跳转到打印机设置那去了。我不是要这样的，我要可以直接转换的工具，并且是批量的。