国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表

圖片精選

主站蜘蛛池模板： 黔东| 嵊州市| 四会市| 铜陵市| 清苑县| 邯郸市| 柳江县| 灵石县| 磐安县| 宜丰县| 卫辉市| 屯门区| 蒙自县| 黑水县| 互助| 泗阳县| 淄博市| 象山县| 克山县| 社会| 德钦县| 天门市| 鸡泽县| 方城县| 澄江县| 牙克石市| 奎屯市| 双辽市| 始兴县| 中西区| 麻江县| 青河县| 玉林市| 修水县| 盐山县| 上栗县| 武川县| 乌兰察布市| 陆丰市| 汤阴县| 全南县|