vba - Office Word：VBAを使用して文字ごとに異なる色を付けます

Question

doc（docx）ファイルがあり、すべての単語のすべての文字の色を変えたいと思っています。

文字a（A）-色赤文字b（B）-色青など

どうすればこれを達成できますか？

Answer 1

完全を期すため、または既存のモジュールがすでにあり、マクロウィンドウなしでそれを行う方法を知っている場合は、ここに追加しました）。また、現時点では1つのドキュメントのみが単語で開いていると想定します。複数のドキュメント、特定のドキュメントを処理する場合は、機能を追加する必要があります（これを行うには、「Set X =」行を変更するだけです）。 。

Sub ColorizeLetter()
'
' ColorizeLetter Macro
'
'
Dim D As Range
Dim C As Characters
Dim X As Document

Set X = Word.Documents.Item(1)

For I = 1 To X.Words.Count
    Set D = X.Words.Item(I)
    For J = 1 To D.Characters.Count
       S$ = D.Characters.Item(J).Text
       Select Case S$
        Case "A"
            D.Characters.Item(J).Font.ColorIndex = wdRed
        Case "B"
            D.Characters.Item(J).Font.ColorIndex = wdBlue
       End Select


    Next
Next
End Sub

Select Caseブロックで他の文字に必要な色を追加するだけで、準備が整います。これがお役に立てば幸いです。