Я хотел знать, как изменить цвет фона текста в 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
?
Есть три настройки цвета фона, с которыми вам нужно иметь дело:
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