Combine Styled Characters?

[freemanwangyl]

End result will be the PNG below, but when I use StringJoin to join Styled Characters, error pop up StringJoin::string: String expected at position 1 in StringJoin[M]. Possible issue is StringJoin works only with explicit strings, while TreeForm[Style[“M”,Red]] shows it is not a String and thus cannot use StringJoin, how could I make it?

StringJoin@Style[#, RandomColor[]] & /@ Characters["Mathematica"]

[kiwee (Raspi Rascal)]

(* Assumption->None, Method->“Spa****”; *)
Style[#, RandomColor] & /@ Characters[“Mathematica”] // Row

or credit to Mark

StringForm[
 "`1``2``3``4``5``6``7``8``9``10``11`"
 , Sequence @@
   (Style[#, RandomColor[], 56, Italic, FontFamily -> "Times New Roman"] &
     /@ Characters["Mathematica"]
   )
]

[markgreenberg]

Use StringForm instead of StringJoin.

Style[StringForm["`1``2``3``4``5``6``7``8``9``10``11`",
  Sequence @@ (Style[#, RandomColor[]] & /@ Characters["Mathematica"])],
 56, Italic, FontFamily -> "Times New Roman"]