VBA change font color to background color

jjfreedman · #1 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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Change excel background color, strange...	sojiro	Excel	7	04-18-2018 10:07 AM
Style Font Color: Background 1	gmgj	Word	3	12-20-2017 04:00 PM
Advanced Font Color Manipulation In Word: Inserting another color than the surrounding text	stuartg	Word	1	02-20-2017 12:38 AM
Remove white text background (keeping the font color and page color intact	cc3125	Word	1	10-26-2015 06:44 PM
Font Color Question//.Replacement.Font.Color = 12611584	rsrasc	Word VBA	3	09-05-2015 09:03 PM