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

【问题标题】：How change the background color in a Word doc?如何更改 Word 文档中的背景颜色？
【发布时间】：2020-12-10 04:43:23
【问题描述】：

我想知道如何在我的所有文档中更改 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？

【问题讨论】：

标签： vba ms-word

【解决方案1】：

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

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

要一次清理所有东西，请使用以下内容：

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

【讨论】：