页面导航： 首页 → 脚本专栏 → vbs → 正文内容 PDF VBS

发布：游客 字体：[增加 减小] 类型：转载

PDF的VBS小程序，看上去应该是处理pdf文件的

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

文章评论

共有 位脚本之家网友发表了评论我来说两句