changing all text boxes of one fill colour to another colour

**was0696** · 02-17-2010, 12:52 PM

Hi.

Is it possible to change all text boxes of a certain fill colour in Word to another fill colour?

I've got a large document with hundreds of text boxes of 4 different fill colours and the colour key has changed so need to change the colours and wondered if they was another way of doing it other than one box at a time.

**Andy Pope** · 02-17-2010, 01:19 PM

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

**was0696** · 02-17-2010, 04:40 PM

Have uploaded example page

**Andy Pope** · 02-18-2010, 05:57 AM

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

Try this example which turns the purples red.

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