ランダムに色付けされた各単語に番号を付けます

Question

文書内の各単語の左側に数字を配置するには、どうすればよいですか？

私は、次のコードを使用して、各単語に番号を付けるために管理している：

Sub IndividualMacros() 
    Dim i&, w As Range 
    For Each w In ActiveDocument.Words 
     If w.Text Like "*[A-Z,a-z]*" Then 
      i = i + 1 
      w.InsertBefore i & " " 
     End If 
    Next 
End Sub 

しかし、どのように私は、各番号の色がランダム色に変更できますか？

Answer 1

は、あなたがより多くのコードを共有でした乱数のもの

Option Explicit 

Sub IndividualMacros() 
    Dim i As Long, w As Range 
    i = 1 

    Dim aaa As Range 
    For Each w In ActiveDocument.Words 
     If w.Text Like "*[A-Z,a-z]*" Then 
      w.Collapse wdCollapseStart  ' move pointer to before word 
      w.InsertBefore i & " "   ' w range contains number and space 
     ' w.select      ' you can use this to see the range 
      w.Font.Color = wdColorBlue  ' two ways to color text 
      w.Font.ColorIndex = 4 
      i = i + 1 
     End If 
    Next 
End Sub