VBA Подсчитайте слова в документе Microsoft Word по цвету

Question

Можно ли считать цветное слово внутри документов Word. Скажем, в моем документе есть два цветных слова. Мне нужно подсчитать слово, которое имеет синий цвет, и мне нужно подсчитать слово, которое является красным.

я нашел только "подсчет количества слов в документе Microsoft Word с помощью шрифтов"

используя ниже сценария:

Sub CountTypeface() Dim lngWord As Long Dim lngCountIt As Long Const Гарнитуры As String = "Cambria"

For lngWord = 1 To ActiveDocument.Words.Count 
    'Ignore any document "Words" that aren't real words (CR, LF etc) 
    If Len(Trim(ActiveDocument.Words(lngWord))) > 1 Then 
     If ActiveDocument.Words(lngWord).Font.Name = Typeface Then 
      lngCountIt = lngCountIt + 1 
     End If 
    End If 
Next lngWord 

MsgBox "Number of " & Typeface & " words: " & lngCountIt 

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 и цветете несколько слов, он будет печатать их цвета в непосредственном окне, прежде чем предоставить вам сообщение. Таким образом, вы узнаете количество цветов.