Sub ChangeLetterColor()

    ' Enter the exact letter you want to globally search for in ThisDocument
    ' Case matters, "A" is not the same as "a"

    Const LETTER_TO_CHANGE = "A"

    ' Enter one of the Word color Constant names to determine the color to change the letter to
    ' Example Word color constants are:
    ' wdBlack
    ' wdBlue
    ' wdBrightGreen
    ' wdDarkBlue
    ' wdDarkRed
    ' wdDarkYellow
    ' wdGray25
    ' wdGray50
    ' wdGreen
    ' wdPink
    ' wdRed
    ' wdTeal
    ' wdTurquoise
    ' wdViolet
    ' wdWhite
    ' wdYellow

    Const COLOR_TO_CHANGE_TO = wdRed
    Debug.Print ActiveDocument.Range.Words.Count
    Debug.Print ActiveDocument.Range.Characters.Count
    Debug.Print ActiveDocument.Range.Paragraphs.Count
 

    For I = 1 To ActiveDocument.Range.Words.Count
        X = Int(10 * Rnd()) + 1
        'If ActiveDocument.Range.Words(i) = LETTER_TO_CHANGE Then
        ActiveDocument.Range.Words(I).Font.ColorIndex = X
        'ActiveDocument.Range.Words(i).Font.ColorIndex = COLOR_TO_CHANGE_TO
        
        ' End If
    Next

    'For i = 1 To ActiveDocument.Range.Characters.Count
    '    If ActiveDocument.Range.Characters(i) = LETTER_TO_CHANGE Then
    '        ActiveDocument.Range.Characters(i).Font.ColorIndex = COLOR_TO_CHANGE_TO
    '    End If
    'Next

End Sub