如何用VBA清除Word中指定标签Content Control的内容（保留控件）

核心实现思路 #

先定义需要处理的标签列表，遍历文档中所有内容控件，判断控件标签是否在目标列表内，若是则清空其内容但保留控件本身。

VBA代码实现 #

Sub ClearSpecificCCContent()
    Dim targetTags As Variant
    Dim cc As ContentControl
    ' 定义需要清除内容的标签列表
    targetTags = Array("Section11", "Section23", "Section45", "Section24", "AppleID01")
    
    For Each cc In ActiveDocument.ContentControls
        ' 检查当前控件标签是否在目标列表中
        If IsInArray(cc.Tag, targetTags) Then
            ' 清空内容，保留控件
            cc.Range.Text = ""
        End If
    Next cc
End Sub

' 辅助函数：判断元素是否在数组中
Function IsInArray(searchVal As String, arr As Variant) As Boolean
    Dim element As Variant
    For Each element In arr
        If element = searchVal Then
            IsInArray = True
            Exit Function
        End If
    Next element
    IsInArray = False
End Function

使用步骤 #

• 打开目标Word文档，按Alt + F11打开VBA编辑器
• 插入新模块：右键点击项目浏览器中的文档名称 → 插入 → 模块
• 将上述代码粘贴到模块窗口中
• 按F5运行ClearSpecificCCContent宏，即可完成指定标签内容控件的内容清除

补充说明 #

• 若需要按标题匹配，只需将代码中的cc.Tag替换为cc.Title即可
• 运行前建议先备份文档，避免意外情况

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