小編給大家分享一下PDF中的VBS小程序怎么寫(xiě)，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

在安定等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場(chǎng)前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè) 網(wǎng)站設(shè)計(jì)制作按需開(kāi)發(fā),公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),高端網(wǎng)站設(shè)計(jì),營(yíng)銷型網(wǎng)站建設(shè),外貿(mào)網(wǎng)站建設(shè),安定網(wǎng)站建設(shè)費(fèi)用合理。

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

以上是“PDF中的VBS小程序怎么寫(xiě)”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

文章題目：PDF中的VBS小程序怎么寫(xiě)-創(chuàng)新互聯(lián)
鏈接分享：http://weahome.cn/article/joosh.html