Change "fill" text colour to no colour

darkmaster006 · #4 08-16-2023, 07:14 AM

Thank you both!

Quote:

Originally Posted by Italophile

You can avoid selecting the text by using the following:

Code:

    With ActiveDocument.Content.ParagraphFormat
        .Shading.Texture = wdTextureNone
        .Shading.ForegroundPatternColor = wdColorAutomatic
        .Shading.BackgroundPatternColor = wdColorAutomatic
    End With

This seems to be the best solution. It, indeed, avoids selecting the text, which is what I wished to happen.
For texts that are all formatted as "one paragraph", this works perfectly. Example:

This gets "cleaned" well, like this:

Yet, when I get a text that has "multiple paragraphs", like this:

Nothing gets changed. Do you have any idea how to do it to texts like these too? The only way I've found, so far, is to paste them to another document, without formatting. It's not ideal, but it's what I've found worked so far. There must be an easier way to do it in-document and with macros, like the code above.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Change Text Colour/Box Shade if CheckBox is marked	cavals07	Word VBA	7	01-30-2023 11:05 AM
New table line has some cells fill colour change	trevorc	Excel	2	06-30-2021 12:27 PM
Text box fill colour changes when pasted to new file	ParishPete	Publisher	0	06-21-2019 12:47 AM
Change text colour for content control labels?	Toe	Word	1	01-17-2019 08:45 AM
How to globally change default "pattern fill" color for all shapes in PP 2013	tbach	PowerPoint	1	01-31-2014 10:59 AM