VBA Word --根据单词的第一个字母格式化单词的颜色

Sub FormatWordsByFirstLetter()
    Dim rng As Range
    Dim word As Range
    
    ' 设置要格式化的文本范围
    Set rng = ActiveDocument.Content
    
    ' 遍历每个单词
    For Each word In rng.Words
        ' 检查单词是否以字母开头
        If word.Characters(1).Text Like "[A-Za-z]" Then
            ' 根据第一个字母格式化单词的颜色
            Select Case LCase(word.Characters(1).Text)
                Case "a", "b", "c"
                    word.Font.Color = RGB(255, 0, 0) ' 红色
                Case "d", "e", "f"
                    word.Font.Color = RGB(0, 255, 0) ' 绿色
                Case "g", "h", "i"
                    word.Font.Color = RGB(0, 0, 255) ' 蓝色
                Case Else
                    word.Font.Color = RGB(0, 0, 0) ' 黑色
            End Select
        End If
    Next word
End Sub