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
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
上一篇: .NET实现文件跨服务器上传下载的方法
下一篇: Razor模板引擎简单介绍