当前位置： 移动技术网 > IT编程>脚本编程>VBScript > PDF的VBS小程序代码

PDF的VBS小程序代码

2017年12月08日  | 移动技术网IT编程  | 我要评论
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

您可能感兴趣的文章:

如您对本文有疑问或者有任何想说的，请点击进行留言回复，万千网友为您解惑！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网