如何设定每行每个颜色？

maikoyuki

我的Word文件有很多短语，自订了八个颜色，想把这些短语每一行都设定一个颜色，然后这八个颜色循环重复用，请问如何能快速的设定？
最好可以用VBA，谢谢！


如：
心期过望无奈多 人怀淡泊失意少


心如山石牢守拙 意似海天勤抱朴


心收镜里求真乐 眼放长宽得大观


心无所累行必果 事多牵挂飞难高


心性常磨持中正 行止时戒秉操守


心悬一镜正言行 意存二簿记得失


行不得反求诸己 躬自厚薄责于人


行端何惧身外言 德馨自有林下蹊


行事莫将天理错 立身当与古人争


胸阔千愁似粟粒 心轻万事如鸿毛


修身岂为名传世 作事唯思利及人


虚心竹有低头叶 傲骨梅无仰面花


不生事不怕事自然无事 能爱人能恶人方是正人


读经读史读遍天下奇书 修行修德修成世上俊才


浮躁一分到处遍招尤悔 因循二字从来误尽英雄


话虽未到口边三思更好 事纵放得心下再慎何妨


克去私心当如斩钉截铁 养成静性要似止水澄波



......

413191246se

Sub 八种颜色()
    Dim c, j As Long, i As Paragraph
    c = Array(wdColorRed, wdColorPink, wdColorBlue, wdColorGreen, wdColorOrange, wdColorTeal, wdColorViolet, wdColorBrightGreen)
    For Each i In ActiveDocument.Paragraphs
        If j = 8 Then j = 0
        i.Range.Font.Color = c(j)
        j = j + 1
    Next
End Sub

maikoyuki

It's OK!
Thank you for your help.