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)文章
這篇文章主要介紹了通過VBS 提取狗狗影視中的ED2K連接，需要的朋友可以參考下2013-07-07
VBS中的堆棧需要使用System.Collections.Stack，下面的代碼包含堆棧的添加元素（壓棧）、刪除元素（出棧）、遍歷、統(tǒng)計元素個數(shù)、清空,需要的朋友可以參考下2018-05-05
這段代碼可以獲取曾經(jīng)在運行對話框中的，我們之前輸入的命令歷史2008-10-10
這個腳本主要是將exe轉(zhuǎn)換為vbs腳本，需要的朋友可以測試下2012-11-11
VBS中轉(zhuǎn)換二進制數(shù)據(jù)為字符串常用辦法
VBS中轉(zhuǎn)換二進制數(shù)據(jù)為字符串常用辦法...2007-03-03
這篇文章主要介紹了VBS中常見字符串操作函數(shù),需要的朋友可以參考下2019-04-04
VBS教程：函數(shù)-IsArray 函數(shù)...2006-11-11
VBS教程：函數(shù)-VarType 函數(shù)...2006-11-11
VBS教程：屬性-DateLastAccessed 屬性...2006-11-11
vbs結(jié)合adox實現(xiàn)提取表名，列名等信息的的vbs類一直沒怎么了解adox，先轉(zhuǎn)過來，有時間研究下??！2008-07-07