Каждое слово - новым цветом

Sub myMacros()
'
'  myMacros
'
'
    Dim a As String
    a = "Some text "
    MsgBox a
    Selection.WholeStory
    Selection.Font.Name = "Times New Roman"
    Selection.Font.Size = 14
    Selection.ParagraphFormat.LineSpacing = LinesToPoints(1.5)
    Selection.Font.Italic = wdToggle
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    Selection.Font.Bold = wdToggle
    
    
    
End Sub

Sub m_1()
Dim oWord As Range
For Each oWord In ActiveDocument.Range.Words
    oWord.Font.Color = Color
Next
End Sub
Function Color() As Long
Randomize
Dim R As Long
Dim G As Long
Dim B As Long
 
R = Int(255 * Rnd) + 1
G = Int(255 * Rnd) + 1
B = Int(255 * Rnd) + 1
 
Color = RGB(R, G, B)
End Function

Sub m_1()
Dim oWord As Range
For Each oWord In ActiveDocument.Range.Words
    oWord.Font.Color = Color
Next
End Sub

Sub FunnyText()
'раскрашивает слова (не содержащие дефиса) в 6 цветов (один из них родной - wdColorAutomatic)
 
Selection.HomeKey wdStory 'соответсвует нажатию Ctrl-Home (курсор - в начало текста)
Randomize 'инициализация генератора случайных чисел (не обязательно)
 
Do
    With Selection.Find
        .Text = "<*>"                               'слово (без дефисов)
        .Format = True                              'применяем к слову формат
        .MatchWildcards = True                      'подстановочные знаки (см. по Ctrl-F)
        .Replacement.Font.Color = _
        Choose(1 + Int(6 * Rnd), _
        wdColorAutomatic, wdColorBrown, wdColorGold, _
        wdColorGray20, wdColorGreen, wdColorIndigo) 'случайный цвет шрифта (из 6 вариантов ряда WdColor)
        .Execute Replace:=wdReplaceOne              'заменяем цвет шрифта на выделении (здесь - на слове)
    End With
    Selection.Collapse Direction:=wdCollapseEnd     'переход к концу выделенного (слова)
    
Loop Until Selection.Find.Found = False             'ВЫХОД из цикла - когда поиск нашёл всё
 
'Exit Sub
    
'Теперь сбросим параметры окна поиска-замены (не обязательно, но так как-то приличнее.)'
    With Selection.Find
        .Text = ""
        .Replacement.ClearFormatting
        .MatchWildcards = False
        .MatchCase = False
        .Execute
    End With
 
End Sub

Sub Rainbow() 'раскрашивает слова (в том числе и с дефисным написанием!) в 7 цветов
Static NomerSlova
 
Do
NomerSlova = 1 + NomerSlova Mod 7               'число от 1 до 7
 
    With Selection.Find
    .Text = "[! ]{2;}"                          'слово (из двух букв и длиннее)
    .MatchWildcards = True                      'подстановочные знаки - см. окно по Ctrl-h (в Word)
    .Replacement.Font.Color = Choose(NomerSlova, _
    wdColorRed, wdColorOrange, wdColorYellow, wdColorGreen, wdColorBlue, _
    wdColorDarkBlue, wdColorViolet)             'случайный цвет шрифта (из 7 вариантов ряда WdColor)
    .Execute Replace:=wdReplaceOne              'заменяем цвет шрифта на выделении (здесь - на слове)
    End With
    
    Selection.Collapse Direction:=wdCollapseEnd 'переход к концу выделенного (слова)
    
Loop Until Selection.Find.Found = False         'ВЫХОД из цикла - когда поиск нашёл всё
 
 
'Теперь сбросим (изменённые нами) параметры окна поиска-замены.'
    With Selection.Find
        .Text = ""
        .Replacement.ClearFormatting
        .MatchWildcards = False
        .Execute
    End With
 
Selection.HomeKey wdStory 'соответсТвует нажатию Ctrl-Home (курсор - в начало текста)
End Sub

Wcount = Selection.Range.ComputeStatistics(wdStatisticWords)