vba - Office Word：使用 VBA 为每个字母设置不同的颜色

Question

我有一个 doc(docx) 文件，我希望每个单词的每个字母都有不同的颜色。

字母 a (A) - 颜色红色字母 b (B) - 颜色蓝色等

我怎样才能做到这一点？

Answer 1

我只是在此处添加它是为了完整性，或者如果您已经有一个现有的模块并且知道如何在没有宏窗口的情况下执行它）。另外，我假设此时只有一个文档在 word 中打开，如果处理多个文档，一个特定文档，则需要添加功能（只需修改“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 块中为其他字符添加您想要的颜色，您应该一切顺利......希望这会有所帮助。