PDF的VBS小程序代碼
更新時間：2008年08月17日 12:09:13 作者：
PDF的VBS小程序，看上去應(yīng)該是處理pdf文件的
Dim ls_File
Set objArgs = WScript.Arguments '命令行參數(shù)
if objArgs.Count<1 then
return
end if
ls_File = objArgs(0) '第一個參數(shù)通常就是文件名
ls_new = left(ls_File, len(ls_File) -4 )+".pdf"
Set pptApp = CreateObject("PowerPoint.Application") '申明調(diào)用函數(shù)
pptApp.Visible = True '在使用PowerPoint時,一定要有此句，否則會出錯
Set MyPress = pptApp.Presentations.Open( ls_file) 'Presentation 對象
MyPress.Saveas ls_new,32
pptApp.Quit
Set objArgs = WScript.Arguments '命令行參數(shù)
if objArgs.Count<1 then
return
end if
ls_File = objArgs(0) '第一個參數(shù)通常就是文件名
ls_new = left(ls_File, len(ls_File) -4 )+".pdf"
Set pptApp = CreateObject("PowerPoint.Application") '申明調(diào)用函數(shù)
pptApp.Visible = True '在使用PowerPoint時,一定要有此句，否則會出錯
Set MyPress = pptApp.Presentations.Open( ls_file) 'Presentation 對象
MyPress.Saveas ls_new,32
pptApp.Quit
相關(guān)文章
VBScript教程 第二課在HTML頁面中添加VBscript代碼
VBScript教程 第二課在HTML頁面中添加VBscript代碼...2006-11-11
vbscript語句中“&H”專用于16進(jìn)制數(shù)表示
近段時間在做一個asp的項目，由于數(shù)據(jù)庫里面的字段采用字母“h”開頭，在sql語言時就出現(xiàn)了莫名其妙的錯誤，經(jīng)過反復(fù)的檢查，也沒查出有錯誤的地方，整整給折騰了我一天的時間。2009-08-08
VBS實現(xiàn)GB2312,UTF-8,Unicode,BIG5編碼轉(zhuǎn)換工具
VBS寫的GB2312,UTF-8,Unicode,BIG5編碼轉(zhuǎn)換工具,轉(zhuǎn)換工具下載:GB2Ue.vbs (3.34 kb)2010-06-06
VBS教程：函數(shù)-CreateObject 函數(shù)
CreateObject 函數(shù)創(chuàng)建并返回對 Automation 對象的引用,在vbscirpt經(jīng)常用到，這里就為大家簡單介紹一下需要的朋友可以參考一下啊2006-11-11
VBS教程：函數(shù)-數(shù)學(xué)函數(shù)
VBS教程：函數(shù)-數(shù)學(xué)函數(shù)...2006-11-11
注冊表開關(guān)[以下代碼保存為.vbs]2008-06-06
VBS教程：函數(shù)-CBool 函數(shù)...2006-11-11
查看或修改Windows系列系統(tǒng)的序列號的vbs
查看或修改Windows系列系統(tǒng)的序列號（包括：2000,xp,2003），支持命令行2008-06-06
VBS教程：方法-GetParentFolderName 方法
vbs GetParentFolderName用來獲取指定的路徑中最后一個文件或文件夾的父文件夾2006-11-11
下面給出幾個利用VBScript訪問外部文件的例子，方便學(xué)習(xí)使用vbs操作外部文本文件的朋友2013-01-01