PDF的VBS小程序代码
2008-08-17 12:09
901 查看
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
相关文章推荐
- 您用的LaTeX程序把下面代码转换成pdf格式需要多长时间?
- 编写高质量代码:改善Java程序的151个建议pdf
- 用VBS调用程序并对程序的运行情况进行监控的两个代码
- 一个用vbs查找硬盘所有分区中的指定程序的代码
- 一些很恶作剧的vbs程序代码
- 使用vbs脚本添加程序到自启动项的代码
- 可执行程序随某程序加载而加载,随其退出而退出功能的 VBS 代码
- winform程序三个窗体间同步数据(五):接口实现多态减少代码(观察者模式)
- ASP.NET程序中常用编程代码
- HR--一个员工的所有主数据(PA*)克隆到一个新员工的程序代码
- xcode反汇编调试iOS模拟器程序(八)反汇编自己的代码来掌握规则
- VS2013显示行号及显示程序汇编代码
- 重写了电话本代码全面更新居然连续三天每天一个程序
- 深入理解 ButterKnife,让你的程序学会写代码
- CSLA.Net 3.0.5 版本 教学程序,代码附教学注释
- Python命令行地址簿小程序代码
- 使用库项目实现Android程序代码的复用
- ASP.NET程序中常用的三十三种代码 (转载)