分秒必争

单位要我把几百个WORD转换成PDF,我日啊,一个个转还不死啊,网上找了很多东西都不能用,经过自己研究,终于发现办法,HOHO,以下是具体实现方法

要实现将任意文件转换成PDF首先需要安装一个PDF打印机,PDF打印机我使用的是TinyPDF,大家可以去这里下载:http://www.greendown.cn/soft/11171.html

接下去要装的就是安装PDF打印机,安装我就不说了,要实现批量,首先要做的是设置PDF打印机,在控制面板中打开打印机和传真,打开后找到TinyPDF,右击属性,然后在常规选项卡中点击打机首选项,在新弹出的对话框中找到输出选项,设置好输入目录,并在覆盖标签中选择直接覆盖不提示如下图所录

设置完成后就须要VBS的帮助了.以下我以WORD批量转换为PDF为实例,你们只要按照这个修改即可,运行脚本后请用鼠标点击下文件夹中的第一个文件,如果来不及点,可以下脚本1处修改成更长时间,哦对了,别忘记把PDF打印机设置成默认打印机,把下面的脚本保存成VBS即可,当然里面的延时会因机器性能不同而产生差异,如果不能估计每个步骤用了多少时间,请把时间设置长一点,以免脚本运行失败
for i=1 to 25 '有几个文件这里循环几次
Dim WshShell
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Wscript.Sleep 800 '1这里延时0.8秒
WshShell.SendKeys "{DOWN}" '按向下箭头
Wscript.Sleep 800 '1这里延时0.8秒
WshShell.SendKeys "{ENTER}" '回车打开文件
Wscrīpt.Sleep 800 '1这里延时0.8秒
WshShell.SendKeys "^p" 'CTRL+p,打印的快捷键
Wscript.Sleep 800 '1这里延时0.8秒
WshShell.SendKeys "{ENTER}" '回车打印文件
Wscript.Sleep 800 '1这里延时0.8秒
WshShell.SendKeys "%{F4}" 'ALT+F4关闭文件
Wscript.Sleep 800 '1这里延时0.8秒
WshShell.SendKeys "%{F4}" 'ALT+F4关闭文件,要用2个关闭是因为打成成PDF后默认会打开PDF文件
Wscript.Sleep 800 '1这里延时0.8秒
WshShell.SendKeys "{ENTER}" '在WORD提示保存的时候,按回车保存
next