PDF的VBS小程序代码

1. Dim ls_File  
2. Set objArgs = WScript.Arguments    '命令行参数  
3.  
4. if objArgs.Count<1 then  
5.     return  
6. end if  
7. ls_File = objArgs(0)    '第一个参数通常就是文件名  
8. ls_new = left(ls_File, len(ls_File) -4 )+".pdf"  
9.  
10. Set pptApp = CreateObject("PowerPoint.Application") '申明调用函数  
11. pptApp.Visible = True '在使用PowerPoint时,一定要有此句，否则会出错  
12.  
13. Set MyPress = pptApp.Presentations.Open( ls_file) 'Presentation 对象  
14. MyPress.Saveas ls_new,32  
15. pptApp.Quit