标题: [其他] 急求助,在CMD模式下把打开的文件执行CTRL+P的打印和CTRL+S保存操作 [打印本页]
作者: GNR 时间: 2018-4-2 11:24 标题: 急求助,在CMD模式下把打开的文件执行CTRL+P的打印和CTRL+S保存操作
急求助,在CMD模式下把打开的文件执行CTRL+P的打印和CTRL+S保存操作
本人有工作中有个任务,就是需要将1000多个WORD文件,用虚拟打印机,打成PDF格式文件,每次都是打开WORD,点CTRL+P,之后CTRL+S保存,依次点1000多个文件,我想用批处理的方式做,但是不会在CMD模式下使用CTRL+P,和CTRL+S的操作,希望领导们不吝赐教!
作者: yhcfsr 时间: 2018-4-2 16:52
本帖最后由 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格式!"
复制代码
欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |