PDF VBS PDF的VBS小程序代码

时间:2021-03-17 人气:0

想了解PDF的VBS小程序代码的相关内容吗，在本文为您仔细讲解PDF VBS的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：PDF,VBS，下面大家一起来学习吧。

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

加载全部内容