PowerShell删除Word指定形状不彻底，求更优解决方法？

你遇到的问题根源在于直接用foreach遍历Shapes集合时删除元素——Word的Shapes是动态集合，删除元素会导致集合的索引结构变化，迭代器会跳过后续的部分元素，所以无法删干净所有符合条件的形状。另外要确保所有嵌套分组都被彻底取消，不然分组内的形状不会被遍历到。

第一步：彻底取消所有分组（含嵌套分组） #

先写一个递归函数处理所有层级的分组，确保所有形状都处于顶层：

function UngroupAllShapes {
    param([Microsoft.Office.Interop.Word.Shapes]$shapes)
    # 倒序遍历，避免分组取消后索引错乱
    for ($i = $shapes.Count; $i -ge 1; $i--) {
        $shape = $shapes.Item($i)
        if ($shape.Type -eq [Microsoft.Office.Interop.Word.MsoShapeType]::msoGroup) {
            $shape.Ungroup()
            # 递归处理新出现的顶层形状（可能包含嵌套分组）
            UngroupAllShapes $shapes
        }
    }
}

# 调用函数取消当前文档所有分组
UngroupAllShapes $doc.Shapes

第二步：批量删除指定形状 #

推荐两种可靠的实现方式：

方式1：倒序遍历原集合删除

倒序遍历不会因为删除元素导致后续元素索引偏移，能确保每个形状都被检查到：

# 倒序遍历Shapes集合
for ($i = $doc.Shapes.Count; $i -ge 1; $i--) {
    $shape = $doc.Shapes.Item($i)
    # 合并匹配条件，*会匹配任意字符（包括空格），无需分开写
    if ($shape.Name -like "Oval*" -or 
        $shape.Name -like "Straight Arrow Connector*" -or 
        $shape.Name -like "Text Box*") {
        $shape.Delete()
    }
}

方式2：先收集所有目标形状再批量删除

先把符合条件的形状存入数组，再遍历数组删除，完全避开集合动态变化的问题：

# 收集所有符合条件的形状
$shapesToDelete = @()
foreach ($shape in $doc.Shapes) {
    if ($shape.Name -like "Oval*" -or 
        $shape.Name -like "Straight Arrow Connector*" -or 
        $shape.Name -like "Text Box*") {
        $shapesToDelete += $shape
    }
}

# 遍历数组删除
foreach ($shape in $shapesToDelete) {
    if ($shape -ne $null) {
        $shape.Delete()
    }
}

额外优化点 #

• 原代码里的$shape.Select()是多余的，删除形状不需要先选中，直接调用Delete()即可。
• 匹配条件里的Oval *可以合并到Oval*，因为*通配符会匹配任意长度的任意字符（包括空格），其他类似条件同理，能简化代码。

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