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