Sub EveryCharToColor()
Dim t As Text
Dim s As Shape
Dim c_ As Long, m_ As Long, y_ As Long, b_ As Long
Dim myCh As Long
Set s = ActiveSelection.Shapes(1)
Set t = s.Text
Randomize
For myCh = 1 To t.Story.Characters.Count
c_ = Int(Rnd * 100)
m_ = Int(Rnd * 100)
y_ = Int(Rnd * 100)
b_ = Int(Rnd * 40)
t.Story.Characters(myCh).Fill.UniformColor.CMYKAssign c_, m_, y_, b_
Next myCh
End Sub