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

Question

我想知道如何更改我所有文档中 Word 中文本的背景颜色。例如，我得到了一些背景颜色为 blue/red/pink 的文本，我希望我所有文档的背景色都为白色。

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

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-属性设置为假。

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

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

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

How change the background color in a Word doc?

vba

ms-word