本帖最后由 yhcfsr 于 2018-4-2 16:58 编辑
保存为VBS文件,和要转换的DOC文件放一起,双击运行,等待运行结束。文件多的话,时间可能比较长,耐心等待。- On Error Resume Next
- Const wdExportFormatPDF = 17
- Set oWord = WScript.CreateObject("Word.Application")
- Set fso = WScript.CreateObject("Scripting.Filesystemobject")
- Set fds=fso.GetFolder(".")
- Set ffs=fds.Files
- MsgBox "开始转换,等待结束提示!"
- For Each ff In ffs
- If (LCase(Right(ff.Name,4))=".doc" Or LCase(Right(ff.Name,4))="docx" ) And Left(ff.Name,1)<>"~" Then
- Set oDoc=oWord.Documents.Open(ff.Path)
- odoc.ExportAsFixedFormat Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",wdExportFormatPDF
- If Err.Number Then
- MsgBox Err.Description
- End If
- End If
- Next
- odoc.Close
- oword.Quit
- Set oDoc=Nothing
- Set oWord =Nothing
- MsgBox "Word文件已全部轩换为PDF格式!"
复制代码
|