Powershell批量搜索Word文档字符串时弹出另存为对话框问题求助

问题核心原因 #

你调用Word文档Close方法时没有明确指定不保存修改的参数，Word检测到文档有未保存的临时变动时，就会触发「另存为」弹窗阻止脚本继续运行。虽然你打开文档时指定了只读参数，但部分包含宏、内嵌更新内容、临时元数据变动的文档依然会被Word判定为有修改，触发保存提示。

修复方案 #

1. 明确关闭时不保存 #

把 $document.close() 修改为 $document.Close(0)，其中0对应Word常量wdDoNotSaveChanges，明确要求Word关闭时丢弃所有改动，不触发保存提示。

2. 补充屏蔽弹窗配置 #

创建Word实例后新增一行配置，彻底关闭Word的所有警告弹窗：

$application.DisplayAlerts = $false

3. 其他优化（避免后续报错） #

• 你初始化的$results = @{}是哈希表，后续用+=添加自定义对象会出现类型不匹配问题，建议修改为数组初始化：$results = @()
• 不需要每遍历一个搜索词就新建、销毁一次Word实例，把实例创建逻辑放到搜索词循环外层即可大幅提升运行效率
• 匹配逻辑新增[regex]::Escape()处理，避免搜索词包含正则特殊字符时出现匹配错误

修正后的完整代码 #

# 初始化结果数组
$results = @()
$output   = "C:\Temp\Found.csv"
$path     = "C:\Temp"
$files    = Get-Childitem $path -Include *.docx,*.doc -Recurse | Where-Object { !$_.psiscontainer }
$charactersAround = 30

Write-Host "Loading getStringMatch into memory" -ForegroundColor DarkMagenta

Function getStringMatch
{
    param(
        $files,
        $application,
        $findtext,
        $charactersAround
    )
    # 遍历目录下所有Word文件
    Foreach ($file In $files)
    {
        Write-Host "Searching In  ... $($File.FullName) " -ForegroundColor DarkYellow
        $document = $application.documents.open($file.FullName,$false,$true)

        $range = $document.content

        If($range.Text -match ".{$($charactersAround)}$([regex]::Escape($findtext)).{$($charactersAround)}"){
             $properties = @{
                File = $file.FullName
                Match = $findtext
                TextAround = $Matches[0] 
             }
             $results += New-Object -TypeName PsCustomObject -Property $properties
        }
        # 明确不保存直接关闭
        $document.Close(0)
        Write-Host "Closing Document  ... $($File.FullName) " -ForegroundColor Red
    }
}
    
$searchWords=Get-Content "C:\Temp\USDA_Search_For.txt"
Set-StrictMode -Version latest
# 全局只创建一次Word实例，避免重复创建销毁的性能损耗
$application = New-Object -comobject word.application
$application.visible = $False
# 屏蔽所有Word弹窗，避免脚本阻塞
$application.DisplayAlerts = $false

Foreach ($sw in $searchWords)
{
    Write-Host "Searching For ... $sw" -ForegroundColor Green
    getStringMatch -files $files -application $application -findtext $sw -charactersAround $charactersAround
}

# 全部搜索完成后再退出Word、释放资源
$application.quit()
[System.Runtime.InteropServices.Marshal]::ReleaseComObject($application) | Out-Null
Remove-Variable -Name application
[gc]::collect()
[gc]::WaitForPendingFinalizers()

If($results){
    $results | Export-Csv $output -NoTypeInformation
}
import-csv $output

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