ppll2030

新手村再次挑战
把以下代码保存为bat文件，放在主文件夹下即可。会自动搜索该文件夹及其子文件夹下的所有word文件并另存为PDF

@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 
复制代码

温馨提示：
如果你的word文件过多或过大，脚本效率将大大降低。
这类操作还是建议用PDF批量工具完成较好。