ms-word - 在 Word 中查找阴影单元格

Question

我正在寻求一些帮助来提出一个宏，该宏将帮助我在 Word 中找到所有阴影单元格，而不管阴影颜色如何，然后将阴影的颜色更改为一种颜色，以保持一致性。从我迄今为止的所有研究来看，如果不将颜色信息实际放入宏中，这似乎是不可能的。任何帮助都感激不尽！谢谢！

Sub ChangeShadingColor()
Dim myTable As Table
Dim cll As Cell

For Each myTable In ActiveDocument.Tables
myTable.Select
For Each cll In myTable.Range.Cells
        If cll.Shading.BackgroundPatternColor = wdColorBrightGreen Then
           cll.Shading.BackgroundPatternColor = wdColorBlue
        End If
Next
Next myTable
End Sub

Answer 1

我想到了。谢谢，dbmitch 帮助我朝那个方向启动了大脑。

Sub ChangeCellShadingColor()
Dim myTable As Table
Dim cll As Cell

For Each myTable In ActiveDocument.Tables
myTable.Select
For Each cll In myTable.Range.Cells
    If cll.Shading.BackgroundPatternColor <> wdColorAutomatic Then
        cll.Shading.BackgroundPatternColor = -603930625
    End If
Next
Next myTable
End Sub

Answer 2

如前所述 - 更改您的搜索以查找没有颜色的单元格，即。<>白

改变

If cll.Shading.BackgroundPatternColor = wdColorBrightGreen Then
   cll.Shading.BackgroundPatternColor = wdColorBlue
End If

至

If cll.Shading.BackgroundPatternColor <> wdColorWhite Then
   debug.print "Found Cell with Color: " & cll.Shading.BackgroundPatternColor
End If