如何更改Word文档中的背景颜色？

Question

我想知道如何更改所有文档中 Word 中文本的背景颜色。例如，我收到一些带有蓝色/红色/粉色背景颜色的文本，并且我希望所有文档的背景颜色为白色。

我得到了字体颜色的示例：

Sub color()
'
' color Macro
'
'

Dim Plage As Object, Wrd As Object
 
Set Plage = ActiveDocument.Content.Words
 
For Each Wrd In Plage
    If Wrd.Font.color = RGB(0, 0, 255) Then _
    Wrd.Font.color = RGB(128, 128, 128)
Next Wrd
 

End Sub

但我不知道如何应用这个VBA代码作为背景颜色。也许与Document.Background property？

Answer 1

您必须处理三种背景颜色设置：

• 您可以使用文本突出显示来标记文本。这可以用 修改Range.HighlightColorIndex。要删除突出显示，请使用wdNoHighlight
• 你可以有阴影。阴影设置在段落级别，可以使用 进行修改Range.Shading.BackgroundPatternColor。要删除它，请使用wdColorAutomatic
• 您可以设置整个文档的背景颜色。可以使用Background.Fill该文档进行修改。将 设为ForeColor白色，或将visible-property 设为 false。

要一次性清理所有内容，请使用如下内容：

Sub RemoveBackgroundColor()
    With ActiveDocument.Content
        .HighlightColorIndex = wdNoHighlight
        .Shading.BackgroundPatternColor = wdColorAutomatic
    End With
    ActiveDocument.Background.Fill.Visible = msoFalse
End Sub