VBA Microsoft Word 문서의 단어 수를 색상으로 계산합니다.

Question

Word 문서에서 색상 단어를 계산할 수 있습니까? 내 문서에는 두 가지 색상 단어가 있다고 가정 해 보겠습니다. 나는 그 색이 푸른 색이라는 것을 세어 볼 필요가 있고 나는 그 색이 붉은 색이라는 것을 세어 볼 필요가있다.

난 단지 스크립트 아래 사용

"글꼴로 Microsoft Word 문서의 단어를 계산"발견 : 문자열만큼 헌장 서체

하위 CountTypeface() 희미한 lngWord 한 희미한 lngCountIt = "웨일스의 별칭"

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 

최종 하위

를하시기 바랍니다 조언.

감사합니다.

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에 작은 텍스트를 넣고 단어 몇 개를 색칠하면 메시지 상자를 표시하기 전에 직접 창에 색을 인쇄합니다. 따라서, 당신은 색깔의 수를 배울 것입니다.