VBA向word文档中的所有表添加颜色

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