欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

PDF的VBS小程序代码

程序员文章站 2022-11-14 11:14:00
dim ls_file set objargs = wscript.arguments    '命令行参数 if objargs.c...
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