Word VBA to change font color in Word 2010 Text boxes

[bazwillrun]

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

 

[bazwillrun]

sorted it now, missing code was if anybody is interested

oShape.TextFrame.TextRange.Font.Color = wdColorBlack

 

[Cendrinne]

sorted it now, missing code was if anybody is interested

oShape.TextFrame.TextRange.Font.Color = wdColorBlack

It helped me, I was looking how to change all font color to all text boxes. So Thank you