2017-01-12 15 views
1

Word文書内のカラーワードをカウントすることは可能でしょうか。私の文書には2つの色の単語があるとしましょう。私は色が青であるという言葉を数える必要があり、色が赤であるという言葉を数える必要がある。VBA Microsoft Word文書のワード数をカラーで計算する

私は、スクリプトの下に使用して

"フォントでMicrosoft Word文書内の単語を数える" が見つかり:文字列限り のConst書体

サブ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 

End Subの

してください助言。

ありがとうございます。

答えて

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に小さなテキストを置き、数単語の色を付けると、メッセージボックスを表示する前に、直接のウィンドウに色を印刷します。したがって、あなたは色の数を知るでしょう。

+1

ありがとうございました。色の数については、私が参考に使用できるWebページをアドバイスできますか?本当にありがとう。 – Rico

+0

最良の選択肢は、単語を1つだけ書き、それを実行するとその色が見えるように、自分で確認することです。これは即時のウィンドウに表示されます。それ以外の場合はページが少し難しいですが、http://dmcritchie.mvps.org/excel/colors.htmを試してみてください – Vityata

関連する問題