绝了!电脑自带功能,Word 批量转 PDF 小白也能一秒搞定

# 定义 Word 文件所在的文件夹路径$wordFolder = "C:\Users\Administrator\Desktop\新建文件夹"# 获取该文件夹下所有的 Word 文件（.docx 和 .doc）$wordFiles = Get-ChildItem -Path $wordFolder -Include *.docx,*.doc -Recurse# 尝试创建 Word 应用程序对象try {    $wordApp = New-Object -ComObject Word.Application    $wordApp.Visible = $false # 隐藏 Word 窗口}catch {    Write-Warning "无法创建 Word 应用程序对象，请确保已安装 Microsoft Word 并且 COM 组件已正确注册。错误信息: $($_.Exception.Message)"    return}foreach ($wordFile in $wordFiles) {    $doc = $null    try {        # 打开 Word 文件        $doc = $wordApp.Documents.Open($wordFile.FullName)        # 定义输出的 PDF 文件路径        $pdfFilePath = [System.IO.Path]::ChangeExtension($wordFile.FullName, ".pdf")        # 将 Word 文件保存为 PDF 格式        $doc.SaveAs([ref]$pdfFilePath, [ref]17)        Write-Host "已将 $($wordFile.Name) 转换为 $([System.IO.Path]::GetFileName($pdfFilePath))"    }    catch {        Write-Warning "转换 $($wordFile.Name) 时出错: $($_.Exception.Message)"    }    finally {        # 确保关闭 Word 文档        if ($doc) {            try {                $doc.Close()            }            catch {                Write-Warning "关闭 $($wordFile.Name) 时出错: $($_.Exception.Message)"            }            [System.Runtime.Interopservices.Marshal]::ReleaseComObject($doc) | Out-Null        }    }}# 退出 Word 应用程序if ($wordApp) {    try {        $wordApp.Quit()    }    catch {        Write-Warning "退出 Word 应用程序时出错: $($_.Exception.Message)"    }    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($wordApp) | Out-Null}