首页 > 编程 > VBScript > 正文

PDF的VBS小程序代码

2020-07-26 11:55:31

字体：大中小

来源：转载

供稿：网友

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小程序

下一篇：最新版利用CDO.Message做的vbs下载者

学习交流

选择笔记本处理器（CPU）需避免那些误区和基

选择笔记本处理器（CPU）需避免那些误区和基本常识...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

中国移动6月净增5G套餐用户1459万户累计达7019.9万户

2020-07-20 18:48:56

蚂蚁集团计划在科创板和港交所同步上市估值超2000亿美元

2020-07-20 18:46:41

传滴滴最快年内在香港IPO 目标估值800亿美元

2020-07-20 18:43:20

小鹏汽车宣布C+轮融资近5亿美元高瓴红杉等为主要投资者

2020-07-20 18:35:48

微博内测热搜定制功能你可以愉快地吃瓜了吗？

2020-07-17 23:29:31

Twitter证实：黑客一共瞄准130个名人账号

2020-07-17 23:24:56

疑难解答

图片精选

网友关注