同目录word批量转PDF On Error Resume Next Const wdExportFormatPDF = 17 Set oWord = WScript.CreateObject("Word.Application") Set fso = WScript.CreateObject("Scripting.Filesystemobject") Set fds=fso.GetFolder("."<