PDF的VBS小程序代码

2009-9-25 16:21 1165 0

摘要: 　　PDF的VBS小程序，看上去应该是处理pdf文件的　　Dim ls_File 　　Set objArgs = WScript.Arguments '命令行参数　　if objArgs.C...

　　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

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除