VBA добавляет цвета ко всем таблицам в текстовом документе

Question

У меня есть документ с несколькими таблицами.Я хотел бы закрасить заголовок таблиц, в которых есть эти слова, до определенного цвета.Кто-нибудь знает, как это сделать?

Answer 1

Вы можете циклически проходить по каждой таблице в документе, проверять значение в ячейке и затемнять его, когда оно совпадает:

Dim t As Table
For Each t In ActiveDocument.Tables
    If t.Cell(1,1) = "something" Then t.Rows(1).Shading.BackgroundPatternColor = wdColorGray50
Next