如何将VB查找并编辑删除线文本的脚本改写为PowerShell？

一、修正你的PowerShell代码 #

你的代码存在属性未赋值、方法调用对象错误、拼写错误等关键问题，以下是两种需求的修正版本：

1. 移除删除线格式（保留文本） #

$word = New-Object -ComObject Word.Application
$word.Visible = $true
$filename = "你的文档路径.docx"
$doc1 = $word.Documents.Open($filename)
$range1 = $doc1.Range()  # 调用Range方法需加括号

# 配置查找规则
$range1.Find.ClearFormatting()
$range1.Find.Font.Strikethrough = $true  # 设置查找条件为带删除线的文本
$range1.Find.Text = ""  # 空字符串匹配所有带删除线文本，指定内容则替换为目标字符串
$range1.Find.Replacement.ClearFormatting()
$range1.Find.Replacement.Font.Strikethrough = $false  # 替换为无删除线格式
$range1.Find.Replacement.Text = "^&"  # ^&表示保留原文本内容

# 执行全局替换（wdReplaceAll对应数值2）
$range1.Find.Execute(Replace:=2)

2. 删除所有带删除线的文本 #

$word = New-Object -ComObject Word.Application
$word.Visible = $true
$filename = "你的文档路径.docx"
$doc1 = $word.Documents.Open($filename)
$range1 = $doc1.Range()

$range1.Find.ClearFormatting()
$range1.Find.Font.Strikethrough = $true
$range1.Find.Text = ""
$range1.Find.Replacement.Text = ""  # 替换为空即删除匹配文本

$range1.Find.Execute(Replace:=2)

关键错误说明 #

• 原代码仅读取$range1.Find.Font.Strikethrough属性，未设置为$true，无法触发格式匹配
• Execute是Find对象的方法，而非Text属性的方法，且存在拼写错误Excecute
• PowerShell中调用COM对象的方法（如Range()、ClearFormatting()）必须加括号，属性赋值需用=显式设置
• 替换操作需明确指定Replace:=2（对应VBA的wdReplaceAll），否则默认仅替换第一个匹配项

二、VB到PowerShell批量迁移的高效参考 #

1. 对照Word VBA对象模型：PowerShell调用Office COM对象的逻辑与VBA完全一致，仅语法细节有差异——VB的With块需拆分为逐行属性设置，枚举值（如wdReplaceAll）可直接使用对应数值（查阅VBA文档获取）
2. 牢记COM对象操作要点：
   • 属性必须通过$obj.Property = Value赋值，不能仅写属性名
   • 方法调用必须加括号（即使无参数），如$obj.ClearFormatting()
   • 命名参数传递沿用VB的ParameterName:=Value格式
3. 拆分测试最小单元：迁移时将VB代码拆分为最小功能片段，逐个转换测试，比如先验证格式查找是否生效，再测试替换逻辑

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