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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 莱阳市| 桐柏县| 顺平县| 古交市| 惠水县| 昌平区| 屏东县| 庄浪县| 昌黎县| 宁晋县| 石泉县| 开平市| 玉山县| 庆安县| 镇宁| 时尚| 海口市| 乌苏市| 肥城市| 中江县| 呼伦贝尔市| 无棣县| 石阡县| 张家口市| 潞城市| 壶关县| 南通市| 同德县| 临海市| 宣恩县| 白银市| 洪泽县| 文昌市| 衡东县| 内江市| 邹平县| 嘉义市| 扶绥县| 天气| 凌云县| 河曲县|