更改不同表单/文本的所有相同RGB颜色

Question

如何更改应用于各种形式(边框或背景(和成组文本区域的颜色？

例如，我有一个组"；BigBox1"；用"；icon1"icon2"text1"；内部和一组"；BigBox2"；用"；icon11"icon22"text11"；在…内

这些元素都是彩色RGB(153153255(；icon1"；以及"；icon11"；其边界为这种颜色；图标2"；以及"；icon22"；其背景为这种颜色；text1"；以及"；text11"；用这种颜色的字体。

在我的文档中，我也有其他具有不同颜色的组("BigBox3"、"BigBox4"(，但我只想将颜色RGB(153153255(更改为RGB(50161115(，而不需要单独选择当前具有颜色RGB(153 153255(的每个元素。

我正在寻找一个宏，它在文档中查找RGB颜色(无论何时，背景、边框、字体(，然后将其RGB颜色更改为另一种颜色。

我试过了。

Sub changecolor ()
With ActiveDocument.Range.Find.Font
.Format.Font.Color = RGB(153, 153, 255)
.Replacement.Font.Color = RGB(50, 66, 115)
.Execute Replace:=wdReplaceAll
End With
End Sub

Answer 1

您的代码无法工作，因为.Execute不是Font的方法

Sub changecolor ()
With ActiveDocument.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Font.Color = RGB(153, 153, 255)
.Replacement.Font.Color = RGB(50, 66, 115)
.Format = True
.Execute Replace:=wdReplaceAll
End With
End Sub

若要更改形状的边框和背景色，您需要循环浏览每个形状及其组项目，并检查每个属性的现有颜色。