求Word VBA宏：为文档句子交替设置字体颜色（非高亮）

以下是实现需求的VBA宏，会遍历文档中每一句文本，用4种颜色交替循环设置字体本身颜色（非高亮），你也可以根据需要调整颜色数量或具体色值：

Sub ColorSentencesAlternately()
    Dim doc As Document
    Dim sentence As Range
    Dim colorIndex As Integer
    ' 定义要循环的字体颜色数组（可自行修改色值或增减数量）
    Dim colorPalette As Variant
    colorPalette = Array(RGB(0, 0, 128), RGB(0, 128, 0), RGB(128, 0, 0), RGB(128, 0, 128))
    
    Set doc = ActiveDocument
    colorIndex = 0
    
    ' 遍历文档中所有句子
    For Each sentence In doc.Sentences
        ' 跳过空句子
        If Trim(sentence.Text) <> "" Then
            sentence.Font.Color = colorPalette(colorIndex)
            ' 更新颜色索引，循环切换
            colorIndex = (colorIndex + 1) Mod UBound(colorPalette) + 1
        End If
    Next sentence
End Sub

自定义说明 #

• 调整颜色：修改colorPalette数组里的RGB值即可，比如要改成3种颜色，直接删除一个RGB元素就行
• 跳过空句：宏会自动忽略无内容的空句子，避免无效设置
• 颜色循环逻辑：用Mod运算符实现颜色索引的循环切换，确保颜色按顺序交替

使用步骤 #

1. 打开目标Word文档
2. 按下Alt + F11打开VBA编辑器
3. 右键点击左侧项目窗口中的当前文档，选择「插入」→「模块」
4. 将上述代码粘贴到模块窗口中
5. 按下F5运行宏，或关闭编辑器后在Word「开发工具」选项卡中点击「宏」选择运行

内容的提问来源于stack exchange，提问作者Two Cents