狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

On Error Resume Next

Const wdExportFormatPDF = 17

Set oWord = Wscript.createObject("Word.Application")

Set fso = Wscript.createObject("scripting.Filesystemobject")

Set fds=fso.GetFolder(".")

Set ffs=fds.Files

For Each ff In ffs

    If (LCase(Right(ff.Name,4))=".doc" Or LCase(Right(ff.Name,4))="docx" ) And Left(ff.Name,1)<>"~" Then

        Set oDoc=oWord.Documents.Open(ff.Path)

        odoc.ExportAsFixedFormat Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",wdExportFormatPDF

        If Err.Number Then

        MsgBox Err.Description

        End If

    End If

Next

odoc.Close

oword.Quit

Set oDoc=Nothing

Set oWord =Nothing

MsgBox "Word文件已全部軒換為PDF格式!"