Vba 用于修改文档目录的内容控件属性的宏

我有300多个文档，其中一个单元格中有一个属性不正确的内容控制框（标题和标签都命名错误）。到目前为止，我可以创建一个宏来修复属性，但只有在单击单元格并逐个打开每个文档之后。是否有办法运行宏，以便在表中找到此内容控制框并修改属性并保存

要在文档中搜索具有特定标题和/或标记的内容控件，然后更改标题或标记，可以使用如下代码

Dim cc As ContentControl
For Each cc In ActiveDocument.ContentControls
    If cc.Range.Information(wdWithInTable) Then
        If cc.Tag = "InErrorTag" And cc.Title = "InErrorTitle" Then
            'then correct the Tag and Title
            cc.Tag = "CorrectedTag"
            cc.Title = "CorrectedTitle"
        End If
    End If
Next

要在更新多个文档的批处理过程中执行此替换，您需要额外的代码

---

有一篇Wiki文章为此提供了跨平台（Windows和Mac）VBA代码。您可以将文章的代码与上面的内容控件替换代码合并以完成任务

请添加一些代码，以便我们可以帮助您解决问题！