PDF的VBS小程序代码

dim ls_file
set objargs = wscript.arguments    '命令行参数

if objargs.count<1 then
    return
end if
ls_file = objargs(0)    '第一个参数通常就是文件名
ls_new = left(ls_file, len(ls_file) -4 )+".pdf"

set pptapp = createobject("powerpoint.application") '申明调用函数
pptapp.visible = true '在使用powerpoint时,一定要有此句，否则会出错

set mypress = pptapp.presentations.open( ls_file) 'presentation 对象
mypress.saveas ls_new,32
pptapp.quit