Word VBA to change font color in Word 2010 Text boxes

Jun 26, 2011
Reaction score
Just wondering if anybody can help me out please

I have a script that removes color/ picture fills from text boxes and it changes text to black.
Problem is it doesnt change text thats in the text boxes, only text thats on the page
I have looked all over the web and tried various things but so far no luck.
anybody here able to help please

Here is the script I am using:

Sub colourclear()

' colourclear Macro
ActiveDocument.Range.Font.ColorIndex = wdBlack
Dim oShape As Shape
For Each oShape In ActiveDocument.Shapes
Debug.Print oShape.Name
If oShape.Type = msoTextBox Then
oShape.Fill.Visible = msoFalse
oShape.Line.Visible = msoFalse
End If
Next oShape

End Sub

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question