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