MS Word中每个句子的不同背景颜色

Question

我想要一个VBA脚本来更改段落中具有不同颜色的每个句子。

因此脚本单词会查找句号（。），然后为句子1分配一种颜色，然后查看句号，然后为句子2等分配不同的背景颜色。

您可以使用10种不同颜色加载脚本。

这可能吗？

我无法在网上找到解决方案。

Answer 1

在StackOverflow中显示您已完成/研究的内容实际上是必须的。因此，请确保下次您真正使用搜索引擎。

然而，这是一个有趣的任务，我通常不会对Word Object做任何事情，因此我决定尝试一下：

Sub CountValue()

    Dim s As Long

    For s = 1 To ActiveDocument.Sentences.Count

        With ActiveDocument.Sentences(s).Font

        If s Mod 2 = 0 Then
            .Color = vbBlue
            .Shading.BackgroundPatternColor = wdColorGray10
        Else
            .Color = vbRed
            .Shading.BackgroundPatternColor = wdColorYellow
        End If
        End With
    Next s

End Sub

这仅适用于两种颜色，但您可以根据需要轻松调整它。它会改变字体和背景颜色：