Remove Text box fill

[Dr Hackenbush]

Win 7 SP3 - MSOffice 2010
I produce a weekly 15 pages or so document that is nearly all texboxes
and saved in 2003-07 .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