饿虎岗资源网 Design By www.oxmxm.com
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
饿虎岗资源网 Design By www.oxmxm.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
饿虎岗资源网 Design By www.oxmxm.com