vba - 修改文档目录的内容控制属性的宏

Question

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

Answer 1

要在文档中搜索具有特定标题和/或标签的内容控件，然后更改标题或标签，您可以使用类似这样的代码......

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 文章Batch Editing MS Word Documents为此目的提供了跨平台（Windows 和 Mac）VBA 代码。您可以将文章的代码与上面的内容控制替换代码合并以完成您的任务。