Use Excel VBA to change font color of word in Word document

Can someone please help me to modify this code, or supply similar code, to change every instance of an asterisk (*) in a Work document from Excel.

Help will be greatly appreciated.

PHP Code: 

    With objDoc
        With Selection.Find
            While .Execute(FindText:="*", Forward:=True)
                If .Found = True Then
                    Selection.Font.Color = vbRed
                End If
            Wend
        End With
    End With