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

如上所述 - 更改搜索以查找没有颜色的单元格，即。＆LT;＆GT;白

更改

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

Answer 2

我明白了。谢谢，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

在Word中查找着色的单元格

2 个答案: