PowerShell中替代SendKeys实现Word邮件合并的可靠方案问询

问题描述 #

我正在编写PowerShell脚本，需要实现以下功能：打开Word文档，执行「完成并合并」→「编辑单个文档」操作，最终将输出文件按日期命名保存到指定文件夹。但SendKeys函数可靠性极差，脚本成功率仅约50%，经常出现窗口打开异常、命名错误、按键遗漏等问题。我曾尝试使用Word Interop模块但未成功，现在需要实现100%可靠的自动化任务，求除了增加按键间隔之外的改进建议。

原脚本 #

$date = Get-Date -Format "MM-dd-yyyy"
Start-Process -Filepath 'C:\Program Files\Microsoft Office\root\Office16\WINWORD.EXE' '\\kfs\users\L93563\mailMergePap.docx'
## ------------------------------------------------------------------------------

Add-Type -AssemblyName Microsoft.VisualBasic
Add-Type -AssemblyName System.Windows.Forms

[Microsoft.VisualBasic.Interaction]::AppActivate('Word')
Start-Sleep -Milliseconds 2000

[System.Windows.Forms.SendKeys]::SendWait("{LEFT}")
Start-Sleep -Milliseconds 250
[System.Windows.Forms.SendKeys]::SendWait("{ENTER}")
Start-Sleep -Milliseconds 2000

[System.Windows.Forms.SendKeys]::SendWait("%")
Start-Sleep -Milliseconds 1000
[System.Windows.Forms.SendKeys]::SendWait("MRE")
Start-Sleep -Milliseconds 2000
[System.Windows.Forms.SendKeys]::SendWait("cql.lacny.com SMB NegPap.odc {ENTER}{ENTER}")
Start-Sleep -Milliseconds 100
[System.Windows.Forms.SendKeys]::SendWait("%")
Start-Sleep -Milliseconds 250
[System.Windows.Forms.SendKeys]::SendWait("M")
Start-Sleep -Milliseconds 250
[System.Windows.Forms.SendKeys]::SendWait("F")
Start-Sleep -Milliseconds 250
[System.Windows.Forms.SendKeys]::SendWait("E")
Start-Sleep -Milliseconds 250
[System.Windows.Forms.SendKeys]::SendWait("{ENTER}")
Start-Sleep -Milliseconds 500
[System.Windows.Forms.SendKeys]::SendWait("%")
Start-Sleep -Milliseconds 250
[System.Windows.Forms.SendKeys]::SendWait("F")
Start-Sleep -Milliseconds 250
[System.Windows.Forms.SendKeys]::SendWait("A")
Start-Sleep -Milliseconds 250
[System.Windows.Forms.SendKeys]::SendWait("{RIGHT}")
Start-Sleep -Milliseconds 250
[System.Windows.Forms.SendKeys]::SendWait("{DOWN 4}")
Start-Sleep -Milliseconds 100
[System.Windows.Forms.SendKeys]::SendWait("{ENTER}")
Start-Sleep -Milliseconds 250
[System.Windows.Forms.SendKeys]::SendWait("{TAB 10} \\KFS\Confidential\SMB Neg Pap Letters {ENTER}{TAB 6}")
Start-Sleep -Milliseconds 100
[System.Windows.Forms.SendKeys]::SendWait("$date")
Start-Sleep -Milliseconds 100
[System.Windows.Forms.SendKeys]::SendWait("{ENTER}")
Start-Sleep -Milliseconds 500
[System.Windows.Forms.SendKeys]::SendWait("%{F4}")
Start-Sleep -Milliseconds 500
[System.Windows.Forms.SendKeys]::SendWait("%{F4}")
Start-Sleep -Milliseconds 500
[System.Windows.Forms.SendKeys]::SendWait("{RIGHT}{ENTER}")

尝试过的方法及错误 #

我试过用Word模块、拆分按键调用、调整按键间隔，但都没用。尝试Word模块时出现以下COM错误：

请求的对象不可用。
At C:\REAL SCRIPTING HOURS\ws2.ps1:15 char:1
+ $document.MailMerge.Destination = [Microsoft.Office.Interop.Word.WdMa ...
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : OperationStopped: (:) [], COMException
    + FullyQualifiedErrorId : System.Runtime.InteropServices.COMException
 
此方法或属性不可用，因为该文档不是邮件合并主文档。
At C:\REAL SCRIPTING HOURS\ws2.ps1:16 char:1
+ $document.MailMerge.Execute()
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : OperationStopped: (:) [], COMException
    + FullyQualifiedErrorId : System.Runtime.InteropServices.COMException

改进建议 #

1. 修复Word Interop的使用问题 #

你的COM错误说明脚本里的文档对象不是邮件合并主文档，或者初始化流程有误。正确的Interop操作流程应该直接调用Word对象模型，完全避开界面依赖：

$date = Get-Date -Format "MM-dd-yyyy"
$outputPath = "\\KFS\Confidential\SMB Neg Pap Letters\$date.docx"
$templatePath = "\\kfs\users\L93563\mailMergePap.docx"
$dataSourcePath = "cql.lacny.com SMB NegPap.odc" # 确保路径可访问且权限足够

# 加载Word Interop程序集
Add-Type -AssemblyName Microsoft.Office.Interop.Word

# 创建Word应用实例，后台运行避免干扰
$wordApp = New-Object -ComObject Word.Application
$wordApp.Visible = $false # 调试时可设为$true观察流程

try {
    # 打开邮件合并模板
    $document = $wordApp.Documents.Open($templatePath)

    # 验证是否为邮件合并主文档
    if ($document.MailMerge.MainDocumentType -ne [Microsoft.Office.Interop.Word.WdMailMergeMainDocType]::wdFormLetters) {
        throw "当前文档不是邮件合并主文档，请检查模板设置"
    }

    # 关联数据源（如果模板未预先配置）
    $document.MailMerge.OpenDataSource(
        $dataSourcePath,
        [Microsoft.Office.Interop.Word.WdOpenFormat]::wdOpenFormatAuto
    )

    # 设置合并目标为新建文档
    $document.MailMerge.Destination = [Microsoft.Office.Interop.Word.WdMailMergeDestination]::wdSendToNewDocument

    # 执行合并
    $document.MailMerge.Execute()

    # 保存合并后的文档
    $mergedDoc = $wordApp.ActiveDocument
    $mergedDoc.SaveAs2($outputPath)
    $mergedDoc.Close()

    # 关闭原模板，不保存修改
    $document.Close([Microsoft.Office.Interop.Word.WdSaveOptions]::wdDoNotSaveChanges)
}
catch {
    Write-Error "执行失败: $_"
}
finally {
    # 清理COM对象，避免Word进程残留
    $wordApp.Quit()
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($document) | Out-Null
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($wordApp) | Out-Null
    [System.GC]::Collect()
    [System.GC]::WaitForPendingFinalizers()
}

2. 彻底放弃SendKeys #

SendKeys本质是模拟用户按键，完全依赖界面焦点、加载速度等不稳定因素，不可能实现100%可靠的自动化。只有直接操作Word对象模型，才是官方支持的可靠方案。

3. 调试与验证要点 #

• 确认mailMergePap.docx确实是邮件合并主文档：手动打开文档，检查是否能正常执行邮件合并操作
• 验证数据源路径cql.lacny.com SMB NegPap.odc的可访问性，确保脚本运行账号有读取权限
• 运行脚本时不要操作鼠标键盘，避免抢占Word窗口焦点
• 调试时将$wordApp.Visible = $true，直观观察Word的操作流程，定位问题环节

内容的提问来源于stack exchange，提问作者Avarsiral