word VBA自动产生绚丽多彩的文字（很好玩儿的功能，亲测有效）

最近在玩儿word VBA，接触一门新的脚本语言，可以让word和excel办公自动化，使办公技能如虎添翼。

比如这儿有段文字：

在VBA程序窗口中写入以下代码：

Sub color_words()
Dim n%, cht As Range
For n = 1 To Selection.Characters.Count
    ActiveDocument.Characters(n).Font.Fill.ForeColor.RGB = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next n 
End Sub

如图所示：

全选文字（一定记住！），点击小三角后运行，稍等片刻（此刻容易假死，只要等程序运行完成即可），就会出现以下绚丽多彩的文字啦！~~~