Microsoft Office Forums - View Single Post - [Solved] VBA change font color to background color

jjfreedman · 05-31-2018, 03:58 PM

For manual setting of a specific paragraph, put the cursor in that paragraph and run this code:

Code:

Sub x()
    With Selection.Paragraphs(1).Range
        If .Shading.BackgroundPatternColor = wdColorAutomatic Then
            .Shading.BackgroundPatternColor = wdColorWhite
        End If
            
        .Font.TextColor.RGB = .Shading.BackgroundPatternColor
    End With
End Sub

For use in your macro that inserts the title, change "Selection.Paragraphs(1).Range" to the range of the paragraph that contains the title.

The If section is needed because setting both the font and the shading to Automatic gives black text on white background.