手机
当前位置:查字典教程网 >脚本专栏 >vbs >PDF的VBS小程序代码
PDF的VBS小程序代码
摘要:Dimls_FileSetobjArgs=WScript.Arguments'命令行参数ifobjArgs.Count

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

【PDF的VBS小程序代码】相关文章:

VBS基础教程

VBS备忘录启动代码

VBS MD5加密算法代码

用VBS实现监视进程创建与删除的代码

vbs病毒的简单例子源代码解析

TCP版backshell的VBS脚本代码

灵活实用的VBS入门教程基础篇

vbs实现的eMule电驴自动关机脚本代码

用vbs将名称转换为正确的大小写的代码

实用vbs提醒小程序

精品推荐
分类导航