Thread: changing all text boxes of one fill colour to another colour

Can you post a small example document that illustrates the textbox type and the current and required colours

You did not say which colours should change and to what.

Try this example which turns the purples red.

Code:

Sub RecolorShapes()
    
    Dim shpTemp As Shape
    Dim lngOrigColour As Long
    Dim lngNewColour As Long
    
    lngOrigColour = 10642560 ' Purple
    lngNewColour = 255 ' Red
    
    For Each shpTemp In ActiveDocument.Shapes
        If shpTemp.Fill.ForeColor.RGB = lngOrigColour Then
            shpTemp.Fill.ForeColor.RGB = lngNewColour
        End If
    Next
    
End Sub