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
您可能感兴趣的文章:
- 算阶乘的vbs小程序
- 实用vbs提醒小程序
- C语言实现的一个万年历小程序
- C语言小程序 如何判断三角型类型
- C语言小程序 计算第二天日期示例代码
- C语言小程序 如何判断两个日期之差
- c语言10个经典小程序
- 好玩的vbs微信小程序之语言播报功能
本文由 华域联盟 原创撰写：华域联盟 » PDF的VBS小程序代码
转载请保留出处和原文链接：https://www.cnhackhy.com/15429.htm
