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
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
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
暂无“PDF的VBS小程序代码”评论...
RTX 5090要首发 性能要翻倍!三星展示GDDR7显存
三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。
首次推出的GDDR7内存模块密度为16GB,每个模块容量为2GB。其速度预设为32 Gbps(PAM3),但也可以降至28 Gbps,以提高产量和初始阶段的整体性能和成本效益。
据三星表示,GDDR7内存的能效将提高20%,同时工作电压仅为1.1V,低于标准的1.2V。通过采用更新的封装材料和优化的电路设计,使得在高速运行时的发热量降低,GDDR7的热阻比GDDR6降低了70%。
更新动态
2024年05月11日
2024年05月11日
- 港乐之旅《繁花HQ》头版限量编号[低速原抓WAV+CUE]
- 孟庭苇《国语真经典 环球精选华语专辑》[WAV+CUE][770MB]
- 张学友《饿狼传说 环球20周年 劲爆销量大奖》[WAV+CUE][440MB]
- 赵鹏 《震撼2020 头版限量 24K金碟》[WAV+CUE][530MB]
- 黄克林.1992-少年甭捉狂【龙吟唱片】【WAV+CUE】
- 冯玮君.2003-Joanna【BMG】【WAV+CUE】
- 窦佳嫄.2024-DCHO【黑籁音乐】【FLAC分轨】
- 逆水寒手游五子棋第二十关怎么过 逆水寒手游残局攻略大全
- 物华弥新迷踪盘第八关怎么过 迷踪盘第八关通关方法
- 物华弥新迷踪盘第九关怎么过 迷踪盘第九关通关方法
- [ABC唱片]-《雪莉—最爱十年》[HD-142][德国版HD]WAV+CUE]
- [ABC唱片]-《雪莉—色》[HDS-143][6N纯银镀膜CD]WAV+CUE]
- 郑华娟1995-旅途与岁月的纪念品(2013华纳复刻版)[飞碟][WAV+CUE]
- 群星.1997-97滚石年度最卖座主打歌刷新全纪录·男女歌合战【滚石】【WAV+CUE】
- 甄妮.1997-20年长情金曲2CD(南方金点系列)【南方】【WAV+CU