国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 編程 > VBScript > 正文

PDF的VBS小程序代碼

2019-10-26 18:01:59
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友
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

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板： 新密市| 潮州市| 沂源县| 兴业县| 平舆县| 巴东县| 长葛市| 胶南市| 松原市| 东阳市| 灌云县| 密山市| 房山区| 隆德县| 武威市| 双峰县| 全南县| 林甸县| 安仁县| 塔河县| 来凤县| 陆丰市| 龙门县| 天等县| 万安县| 高密市| 松滋市| 漯河市| 长阳| 普定县| 昆明市| 肇庆市| 沿河| 康乐县| 弋阳县| 伊宁县| 河西区| 灵石县| 东海县| 定兴县| 昌黎县|