告别无效加班!智能化办公让你效率翻倍(word一键转pdf)

当AI助手自动整理报表、智能日程帮你避开时间黑洞，办公方式正经历革命性升级。智能化工具不仅解放双手，更能释放创造力：每天节省3小时机械劳动，体验高效能人士的进阶法则——未来办公，从拒绝低效开始！

今天给大家做个小工具：可以实现功能，一键将word（*.docx、*.doc）转换成pdf；你还在另存，命名，保存word成pdf 吗？你还在用打印机将word打印成pdf吗，今天你可以动动鼠标，双击就可以做到，将word批量存储为pdf文件。看下面动图效果：

@echo off
setlocal enabledelayedexpansion

:: 创建临时VBScript文件用于转换
set "vbsfile=%temp%\word2pdf.vbs"

(
echo Set objWord = CreateObject^("Word.Application"^)
echo objWord.Visible = False
echo On Error Resume Next
echo For Each sFile In WScript.Arguments
echo    inputFile = sFile
echo    outputFile = Left^(inputFile, InStrRev^(inputFile, "."^) - 1^) ^& ".pdf"
echo    Set objDoc = objWord.Documents.Open^(inputFile^)
echo    If Err.Number = 0 Then
echo        objDoc.SaveAs outputFile, 17
echo        objDoc.Close
echo    Else
echo        WScript.Echo "Error processing: " ^& inputFile
echo        Err.Clear
echo    End If
echo Next
echo objWord.Quit
) > "%vbsfile%"

:: 收集所有Word文档并传递给VBScript处理
set "files="
for %%F in (*.doc *.docx) do set "files=!files! "%%~fF""
if defined files (
    cscript //nologo "%vbsfile%" %files%
) else (
    echo No .doc or .docx files found.
)

:: 强制结束Word进程并清理临时文件
taskkill /f /im winword.exe >nul 2>&1
del "%vbsfile%" >nul 2>&1

endlocal
echo Conversion completed. Press any key to exit...
pause >nul

新建一个txt文本，将上述代码粘贴保存，后缀命名修改为bat，如：一键word转pdf.bat。