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
公眾號(hào)
事業(yè)單位
當(dāng)前位置：
公考類
招聘類
各類考試