@if (0)/*==(0)/* echo off

cmd /u /c dir /b /s /a-d *.docx | cscript //nologo //e:jscript //u "%~f0"
taskkill /F /IM winword.exe 2>nul

pause&exit/b
rem */@end

var nil=null,f=[];
while (!WScript.StdIn.AtEndOfStream) {
s=WScript.StdIn.ReadLine();
f.push(s);
}

var i,p,file,fso=GetObject("new:scripting.filesystemobject");
var wa=GetObject("new:word.application");
wa.Visible=false;wa.DisplayAlerts=false;wa.ScreenUpdating=false;

for (i in f){
p=f[i].split('.');
p.pop();
p.push('pdf');
if (fso.FileExists(p.join('.'))){}
else {
file=wa.Documents.Open(f[i]);
file.SaveAs2(p.join('.'),17);
file.Close(false);
}
}

wa.Visible=true;wa.DisplayAlerts=true;wa.ScreenUpdating=true;
wa.Quit();wa=nil;
复制代码

@echo off
 
:vbs
(echo Set fso = CreateObject^("Scripting.FileSystemObject"^)
 echo For i= 0 To WScript.Arguments.Count -1
 echo   doc = WScript.Arguments^(i^)
 echo   doc = fso.GetAbsolutePathName^(doc^)
 echo   If LCase^(Right^(doc, 4^)^) = ".doc" Or LCase^(Right^(doc, 5^)^) = ".docx" Then
 echo     Set objWord = CreateObject^("Word.Application"^)
 echo     pdfPath = FSO.GetFile^(doc^).ParentFolder
 echo     pdfname = fso.GetBaseName^(doc^) ^& ".pdf"
 echo     objWord.Visible = False
 echo     Set objDoc = objWord.documents.open^(doc^)
 echo     objDoc.saveas pdfPath ^& "\" ^& pdfname,17
 echo     objDoc.Close
 echo     objWord.Quit 
 echo   End If 
 echo   Next ) > Word2PDF.vbs
  
for /f "delims=" %%i in ('dir /b /s /a-d *.doc') do Word2PDF.vbs "%%i"
del /p Word2PDF.vbs
echo.&echo 当前文件夹（含子文件夹）下的所有word文档已全部转换成PDF~! &pause >NUL 
复制代码