快速word文档转PDF

涛哥-印前

提取码：m2a9

lzspain

只有提取码，没有链接呢，WPS不支持吗？

海风

涛哥这操作绝了，只有暗号，找不到接头人

xiaoT

这是什么情况啊，补链接的时候，说明下可以批量处理吗

uhbx0

自己一直用这个脚本~放在DOC和DOCX文件夹，直接运行~保存为.vbs

1. On Error Resume Next
   
2. Const wdExportFormatPDF = 17
   
3. Set oWord = WScript.CreateObject("Word.Application")
   
4. Set fso = WScript.CreateObject("Scripting.Filesystemobject")
   
5. Set fds=fso.GetFolder(".")
   
6. Set ffs=fds.Files
   
7. For Each ff In ffs
   
8. If (LCase(Right(ff.Name,4))=".doc" Or LCase(Right(ff.Name,4))="docx" ) And Left(ff.Name,1)<>"~" Then
   
9. Set oDoc=oWord.Documents.Open(ff.Path)
   
10. odoc.ExportAsFixedFormat Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",wdExportFormatPDF
    
11. If Err.Number Then
    
12. MsgBox Err.Description
    
13. End If
    
14. End If
    
15. Next
    
16. odoc.Close
    
17. oword.Quit
    
18. Set oDoc=Nothing
    
19. Set oWord =Nothing
    
20. MsgBox "Word文件已全部轩换为PDF格式!"

复制代码

哈工大

楼主：链接呢，找不到组织了，只有暗号。

竟夕相思

这个不稳定 最好的是vba代码存个快捷按钮