VBA按颜色统计Microsoft Word文档中的字数

Sub CountWordsByColor()
    Dim doc As Document
    Dim rng As Range
    Dim wordCount As Long
    Dim colorCount As Long
    Dim color As Long
    
    Set doc = ActiveDocument
    Set rng = doc.Content
    
    wordCount = 0
    colorCount = 0
    
    For Each c In rng.Characters
        ' 获取字符的颜色属性
        color = c.Font.Color
        
        ' 根据颜色进行计数
        If color = RGB(255, 0, 0) Then ' 红色
            wordCount = wordCount + 1
            colorCount = colorCount + 1
        ElseIf color = RGB(0, 255, 0) Then ' 绿色
            wordCount = wordCount + 1
            colorCount = colorCount + 1
        ElseIf color = RGB(0, 0, 255) Then ' 蓝色
            wordCount = wordCount + 1
            colorCount = colorCount + 1
        End If
    Next c
    
    MsgBox "总字数: " & wordCount & vbCrLf & "按颜色统计的字数: " & colorCount
End Sub