Text Colour and Text box fill removal

[bazwillrun]

Win 7 SP3 - MSOffice 2010
I produce a weekly 15 pages or so document that is nearly all texboxes and saved as in .doc format

I have a script that will remove all the box background fills, colour, pics etc. but leaves the text alone. This effects the whole document

Problem is that if a text box has an outline border showing then the script wont remove the box background fill.

Would somebody be able to help me out and make the changes for me please as this is way out of my skills.
Also would it be possible to have the same script change all text in the document to black , in text boxes or not

many thanks if you can help
-------------------------------------------------------------------

Here is the script that i currentlyuse:

Sub colourclear()

' colourclear Macro
Dim oShape As Shape
For Each oShape In ActiveDocument.Shapes
If oShape.Type = msoTextBox Then
If oShape.Line.Visible = msoFalse Then
oShape.Fill.Visible = msoFalse
End If
End If
Next oShape

End Sub

[bazwillrun]

ok sorted


oShape.TextFrame.TextRange.Font.Color = wdColorBlack

[bazwillrun]

ok sorted


oShape.TextFrame.TextRange.Font.Color = wdColorBlack

[softland]

Look at these I have a headache