Макрос для изменения свойств управления контентом для каталога документов

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

Чтобы затем выполнить эту замену в пакетном процессе обновления нескольких документов, вам нужен дополнительный код.

Существует статья в вики " Пакетное редактирование документов MS Word", которая предоставляет кросс-платформенный (Windows и Mac) код VBA для этой цели. Вы можете объединить код статьи с кодом замены Content Control выше, чтобы выполнить вашу задачу.