当然可行！我专门写了一段VBA脚本，能精准实现你的需求：按句号划分段落里的句子，用预设的10种背景色依次分配，到第11句时会循环复用第1种颜色。下面是完整代码和使用说明：

Sub ColorSentencesByPeriod()
    ' 预设10种不同的背景色（RGB值可自行调整）
    Dim colorPalette(9) As Long
    colorPalette(0) = RGB(255, 235, 235) ' 浅红
    colorPalette(1) = RGB(235, 255, 235) ' 浅绿
    colorPalette(2) = RGB(235, 235, 255) ' 浅蓝
    colorPalette(3) = RGB(255, 255, 204) ' 浅黄
    colorPalette(4) = RGB(255, 204, 255) ' 浅粉
    colorPalette(5) = RGB(204, 255, 255) ' 浅青
    colorPalette(6) = RGB(255, 229, 204) ' 浅橙
    colorPalette(7) = RGB(229, 204, 255) ' 浅紫
    colorPalette(8) = RGB(204, 255, 204) ' 薄荷绿
    colorPalette(9) = RGB(255, 204, 204) ' 珊瑚粉
    
    Dim para As Paragraph
    Dim sentenceArr() As String
    Dim currentPos As Integer
    Dim sentenceIndex As Integer
    Dim sentenceLen As Integer
    
    ' 遍历文档中所有段落
    For Each para In ActiveDocument.Paragraphs
        currentPos = 1
        sentenceIndex = 0
        
        ' 按句号拆分段落文本
        sentenceArr = Split(para.Range.Text, ".")
        
        ' 遍历拆分后的每个句子
        For i = LBound(sentenceArr) To UBound(sentenceArr)
            ' 跳过空内容（比如连续句号的情况）
            If Trim(sentenceArr(i)) <> "" Then
                sentenceLen = Len(sentenceArr(i))
                
                ' 给当前句子设置背景色，颜色循环复用
                para.Range.Characters(currentPos, sentenceLen).HighlightColorIndex = wdNoHighlight
                para.Range.Characters(currentPos, sentenceLen).Shading.BackgroundPatternColor = colorPalette(sentenceIndex Mod 10)
                
                ' 更新位置和句子索引
                currentPos = currentPos + sentenceLen + 1 ' +1是加上句号的长度
                sentenceIndex = sentenceIndex + 1
            End If
        Next i
    Next para
    
    MsgBox "句子背景色设置完成！", vbInformation
End Sub

• 开头的colorPalette数组定义了10种自定义RGB背景色，你可以直接修改RGB数值来替换成你喜欢的颜色
• 脚本默认处理文档中所有段落，如果只想处理选中的段落，把For Each para In ActiveDocument.Paragraphs改成For Each para In Selection.Paragraphs即可
• 用Split函数按句号拆分句子，同时跳过空内容（避免连续句号导致的无效句子）
• 通过sentenceIndex Mod 10实现颜色循环，第11句会复用第1种颜色，第12句复用第2种，以此类推
• 最后会弹出提示框告知操作完成

• 脚本默认以单个句号.作为句子分隔符，如果你的文档中有省略号...或者其他类似标点，可能需要调整拆分逻辑（比如先替换省略号再拆分）
• 如果句子结尾的句号后有空格，脚本会自动包含空格在内的整个句子部分，确保颜色覆盖完整

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