PDF的VBS小程序代碼
更新時(shí)間：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) '第一個(gè)參數(shù)通常就是文件名
ls_new = left(ls_File, len(ls_File) -4 )+".pdf"
Set pptApp = CreateObject("PowerPoint.Application") '申明調(diào)用函數(shù)
pptApp.Visible = True '在使用PowerPoint時(shí),一定要有此句，否則會(huì)出錯(cuò)
Set MyPress = pptApp.Presentations.Open( ls_file) 'Presentation 對(duì)象
MyPress.Saveas ls_new,32
pptApp.Quit
Set objArgs = WScript.Arguments '命令行參數(shù)
if objArgs.Count<1 then
return
end if
ls_File = objArgs(0) '第一個(gè)參數(shù)通常就是文件名
ls_new = left(ls_File, len(ls_File) -4 )+".pdf"
Set pptApp = CreateObject("PowerPoint.Application") '申明調(diào)用函數(shù)
pptApp.Visible = True '在使用PowerPoint時(shí),一定要有此句，否則會(huì)出錯(cuò)
Set MyPress = pptApp.Presentations.Open( ls_file) 'Presentation 對(duì)象
MyPress.Saveas ls_new,32
pptApp.Quit
相關(guān)文章
VBS 提取狗狗影視中的ED2K連接的實(shí)現(xiàn)代碼
這篇文章主要介紹了通過(guò)VBS 提取狗狗影視中的ED2K連接，需要的朋友可以參考下2013-07-07
VBS中的堆棧需要使用System.Collections.Stack，下面的代碼包含堆棧的添加元素（壓棧）、刪除元素（出棧）、遍歷、統(tǒng)計(jì)元素個(gè)數(shù)、清空,需要的朋友可以參考下2018-05-05
顯示運(yùn)行對(duì)話框內(nèi)保存的命令歷史的vbs
這段代碼可以獲取曾經(jīng)在運(yùn)行對(duì)話框中的，我們之前輸入的命令歷史2008-10-10
這個(gè)腳本主要是將exe轉(zhuǎn)換為vbs腳本，需要的朋友可以測(cè)試下2012-11-11
VBS中轉(zhuǎn)換二進(jìn)制數(shù)據(jù)為字符串常用辦法
VBS中轉(zhuǎn)換二進(jìn)制數(shù)據(jù)為字符串常用辦法...2007-03-03
這篇文章主要介紹了VBS中常見(jiàn)字符串操作函數(shù),需要的朋友可以參考下2019-04-04
VBS教程：函數(shù)-IsArray 函數(shù)...2006-11-11
VBS教程：函數(shù)-VarType 函數(shù)...2006-11-11
VBS教程：屬性-DateLastAccessed 屬性...2006-11-11
vbs adox提取數(shù)據(jù)庫(kù)表名和列名的類
vbs結(jié)合adox實(shí)現(xiàn)提取表名，列名等信息的的vbs類一直沒(méi)怎么了解adox，先轉(zhuǎn)過(guò)來(lái)，有時(shí)間研究下??！2008-07-07