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格式!"