这段代码如何修改，可以对word 2003也有效

zzpsx

这段代码保存为.vbs，双击可以把word批量转换成pdf，不过只对word 2007以上版本有效，如何对03版也有效呢？
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格式!"

daibao88

Word2003本身就不支持转换为PDF格式    无米之炊，难为他了