如何编写宏删除不含"Me"标签的富文本内容控件及修正现有宏问题

你的现有代码出现异常的原因有两点：

• 正向遍历内容控件集合时，删除元素会打乱集合索引顺序，可能误处理标签含“Me”的控件
• ContentControl.Delete 方法默认仅删除控件但保留内容，你额外添加的清空文本操作不仅多余，还可能因遍历异常影响到目标外的控件

以下是修正后的代码：

Sub DeleteRichTextControlNotContainingMe()
    Dim i As Integer
    ' 倒序遍历，避免删除元素后集合结构混乱导致的遍历错误
    For i = ActiveDocument.ContentControls.Count To 1 Step -1
        With ActiveDocument.ContentControls(i)
            ' 判断是否为富文本控件，且标签不包含"Me"（vbTextCompare表示不区分大小写）
            If .Type = wdContentControlRichText And InStr(1, .Tag, "Me", vbTextCompare) = 0 Then
                ' 直接删除控件及其内部所有内容
                .Delete DeleteContents:=True
            End If
        End With
    Next i
End Sub

关键修改说明：

• 倒序遍历：从最后一个控件向前遍历，确保删除操作不会影响未遍历的控件索引
• vbTextCompare 参数：让标签的“Me”匹配不区分大小写，如果需要严格区分大小写，可移除该参数
• Delete DeleteContents:=True：一次性删除控件及其内部内容，无需提前清空文本，避免冗余操作和误处理

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