PDF的VBS小程序代码
更新时间：2008年08月17日 12:09:13 作者：
PDF的VBS小程序，看上去应该是处理pdf文件的
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
相关文章
这篇文章主要介绍了通过VBS 提取狗狗影视中的ED2K连接，需要的朋友可以参考下2013-07-07
VBS中的堆栈需要使用System.Collections.Stack，下面的代码包含堆栈的添加元素（压栈）、删除元素（出栈）、遍历、统计元素个数、清空,需要的朋友可以参考下2018-05-05
这段代码可以获取曾经在运行对话框中的，我们之前输入的命令历史2008-10-10
这个脚本主要是将exe转换为vbs脚本，需要的朋友可以测试下2012-11-11
VBS中转换二进制数据为字符串常用办法...2007-03-03
这篇文章主要介绍了VBS中常见字符串操作函数,需要的朋友可以参考下2019-04-04
VBS教程：函数-IsArray 函数...2006-11-11
VBS教程：函数-VarType 函数...2006-11-11
VBS教程：属性-DateLastAccessed 属性...2006-11-11
vbs结合adox实现提取表名，列名等信息的的vbs类一直没怎么了解adox，先转过来，有时间研究下！！2008-07-07
最新评论