PowerShell操作Word替换文本时全量运行加粗设置失效问题

问题核心表现 #

• 脚本实现Word模板占位符替换、业务数据填充、指定文本加粗三类功能
• 手动逐行分步执行代码时，文本加粗逻辑运行正常
• 一次性全量运行完整脚本时，加粗逻辑完全失效，其余替换、保存功能均符合预期

问题根因 #

异常由Word COM对象的操作状态残留、参数配置错误共同导致：

1. Find对象状态污染：自定义ReplaceTag函数每次执行都调用$Document.ActiveWindow.Selection.Find完成替换，每次替换结束后，Find对象的所有配置参数（是否匹配格式、匹配规则、查找范围）都会保留上一次执行的状态，不会自动重置。全量运行时，前4次占位符替换将Find的Format参数固定为$false（即查找替换时忽略所有格式配置），后续即使设置Replacement.Font.Bold = $true，格式配置也不会被应用。
2. Selection范围局限性：Selection对象对应Word界面的光标选中区域，当设置$Word.Visible = $false时，非可视化状态下Selection不会自动覆盖全文，仅能匹配当前光标停留位置的局部文本；全量运行时光标停在最后一次占位符替换的位置，大概率不在目标加粗文本所在区域，自然无法匹配生效。
3. 分步执行生效的原因：手动分步执行时，两次操作的间隔中Word会隐式重置Selection状态和Find参数，清空上一次操作的残留配置，因此加粗逻辑可以正常触发。

额外隐患：原代码中模板路径、输出路径缺少目录分隔符反斜杠，..Invetigations_Update_Template1.docx会被解析为当前目录下名为..Invetigations_Update_Template1.docx的文件，而非上级目录的模板文件，容易触发文件找不到异常。

修复方案 #

1. 弃用依赖光标位置的Selection.Find，改用Document.Content.Find操作全局文本范围，不受光标位置影响
2. 每次执行查找替换前，显式调用ClearFormatting()方法清空查找、替换两侧的格式残留，按需显式设置Format参数开关
3. 调整执行顺序：先完成所有无格式的普通占位符替换，最后执行带格式的文本加粗操作
4. 修正文件路径的写法，补充目录分隔符

修复后可直接运行的核心代码 #

Function ReplaceTag($Document, $FindText, $ReplaceWithText)
{
    $operateRange = $Document.Content
    $findOp = $operateRange.Find
    # 清空历史格式配置
    $findOp.ClearFormatting()
    $findOp.Replacement.ClearFormatting()

    $matchCase = $false
    $matchWholeWord = $true
    $matchWildCards = $false
    $matchSoundsLike = $false
    $matchAllWordForms = $false
    $forward = $true
    $format = $false # 普通文本替换关闭格式匹配
    $wrap = 1
    $replace = 2 # 对应wdReplaceAll常量，全部替换

    $findOp.Execute($findText, $matchCase, $matchWholeWord, $matchWildCards, $matchSoundsLike, $matchAllWordForms, $forward, $wrap, $format, $replaceWithText, $replace) | Out-Null
}

Function BoldTargetText($Document, $FindText)
{
    $operateRange = $Document.Content
    $findOp = $operateRange.Find
    # 清空历史格式配置
    $findOp.ClearFormatting()
    $findOp.Replacement.ClearFormatting()
    # 配置加粗格式，开启格式应用开关
    $findOp.Replacement.Font.Bold = $true
    $format = $true
    $matchCase = $false
    $matchWholeWord = $true
    $matchWildCards = $false
    $forward = $true
    $wrap = 1
    $replace = 2 # 对应wdReplaceAll常量，全部替换

    $findOp.Execute($FindText, $matchCase, $matchWholeWord, $matchWildCards, $false, $false, $forward, $wrap, $format, $FindText, $replace) | Out-Null
}

# 修正路径写法，补充目录分隔符
$TemplateFile = "..\Invetigations_Update_Template1.docx"
$FinalFile = "..\Invetigations_Update_Final.docx"

$Word = New-Object -ComObject Word.Application
$Word.Visible = $false
$doc = $Word.Documents.Open($TemplateFile)

# 第一步：执行所有普通占位符替换
ReplaceTag –Document $Doc -FindText '<TotalInvestigatedCases>' -replacewithtext $TotalInvestigatedCases
ReplaceTag –Document $Doc -FindText '<TotalCompletedCases>' -replacewithtext $TotalCompletedCases
ReplaceTag –Document $Doc -FindText '<TotalActiveCases>' -replacewithtext $TotalActiveCases
ReplaceTag –Document $Doc -FindText '<TotalCases>' -replacewithtext $TotalCases

# 第二步：执行指定文本加粗
BoldTargetText -Document $Doc -FindText 'Investigation Areas To be Explored:'

# 保存文档
SaveAsWordDoc –document $Doc –Filename $FinalFile

# 释放COM对象，避免后台残留WinWord进程
$doc.Close($false)
$Word.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($doc) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Word) | Out-Null
[GC]::Collect()
[GC]::WaitForPendingFinalizers()

扩展提示 #

如果后续需要实现表格内##value##格式标识的加粗效果，不要用全局Content范围查找，遍历文档所有表格的每个单元格Range对象，复用上述BoldTargetText的逻辑执行查找替换即可——Word的全局Content范围默认不会覆盖表格单元格内的嵌套文本范围。

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