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

首頁 > 編程 > VBScript > 正文

PDF的VBS小程序代碼

2020-07-26 11:55:31
字體：大 中 小
來源：轉載
供稿：網友
Dim ls_File
Set objArgs = WScript.Arguments    '命令行參數

if objArgs.Count<1 then
    return
end if
ls_File = objArgs(0)    '第一個參數通常就是文件名
ls_new = left(ls_File, len(ls_File) -4 )+".pdf"

Set pptApp = CreateObject("PowerPoint.Application") '申明調用函數
pptApp.Visible = True '在使用PowerPoint時,一定要有此句，否則會出錯

Set MyPress = pptApp.Presentations.Open( ls_file) 'Presentation 對象
MyPress.Saveas ls_new,32
pptApp.Quit

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 禄丰县| 宣汉县| 庆城县| 清新县| 广饶县| 林州市| 天水市| 察隅县| 陕西省| 炉霍县| 左贡县| 白沙| 奈曼旗| 永修县| 舟曲县| 长治县| 乌鲁木齐市| 宁陕县| 林口县| 武鸣县| 大石桥市| 潍坊市| 云安县| 汉中市| 余江县| 延长县| 皮山县| 右玉县| 佳木斯市| 信阳市| 株洲市| 汕头市| 扶沟县| 七台河市| 大化| 如皋市| 罗定市| 常山县| 大新县| 渭南市| 宁夏|