VBA按颜色计算Microsoft Word文档中的单词

Question

是否可以计算Word文档中的颜色词。假设我的文档中有两个颜色词。我需要计算颜色为蓝色的单词，我需要计算颜色为红色的单词。

我只找到了“按字体计算Microsoft Word文档中的单词”

使用以下脚本：

Sub CountTypeface（）     Dim lngWord As Long     Dim lngCountIt As Long     Const Typeface As String =“Cambria”

selenium webdriver

End Sub

请建议。

谢谢。

Answer 1

试试这个：

Option Explicit

Sub CountTypeface()
    Dim lngWord As Long
    Dim lngCountIt As Long
    Const ColorIndex As Long = 6

    For lngWord = 1 To ActiveDocument.Words.Count
        If Len(Trim(ActiveDocument.Words(lngWord))) > 1 Then
            Debug.Print ActiveDocument.Words(lngWord).Font.ColorIndex
            If ActiveDocument.Words(lngWord).Font.ColorIndex = ColorIndex Then
                lngCountIt = lngCountIt + 1
            End If
        End If
    Next lngWord

    MsgBox "Number of colored words: " & lngCountIt
End Sub

6代表红色。如果你在Word中放入一个小文本并为几个单词着色，它会在给出你的消息框之前将它们的颜色打印在即时窗口中。因此，您将了解颜色的数量。