select all the shaded texts with particular color

jackiru · #1 12-13-2020, 06:09 AM

I need to select all the shaded texts with particular color in order to change the font size . VBA macro? and if that's possible for many documents (batch)

Charles Kenyon · #2 12-13-2020, 06:21 AM

For batch processing, see:

For your main question...

Do you mean that there is background shading of a particular color or that the text has that color?
Have you applied the color using a character style or through direct formatting? If done using a character style, changing font size is trivial. You modify the style.
What is the color?

jackiru · #3 12-13-2020, 06:31 AM

for my main question:
-there is a background shading, the text has nothing
-I haven't applied the color, I pasted the text from a web page
-the color is like this sample

gmayor · #4 12-13-2020, 10:04 PM

The following macro will clear the shading and set the font as required when used with my add-in mentioned by Charles. I have included a test macro to call it.

Code:

Sub Test()
RemShading ActiveDocument
End Sub

Function RemShading(oDoc As Document) As Boolean
Dim oPara As Paragraph
    On Error GoTo err_Handler
    For Each oPara In oDoc.Paragraphs
        If oPara.Shading.BackgroundPatternColor = RGB(255, 255, 230) Then
            oPara.Shading.BackgroundPatternColor = wdColorAutomatic    'remove the shading
            oPara.Range.Font.Name = "Calibri"    'The font you wish to apply
            oPara.Range.Font.Size = 12    'The font size
        End If
    Next oPara
    RemShading = True
lbl_Exit:
    Exit Function
err_Handler:
    RemShading = False
    Err.Clear
    Resume lbl_Exit
End Function

jackiru · #5 12-14-2020, 05:49 AM

thank you very much, it's working

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Select color palette using vba	Catty	Word VBA	3	10-08-2015 09:32 PM
Macro to select a custom color palette	Catty	Word VBA	0	05-06-2015 05:12 AM
change color of critical activity texts	ketanco	Project	3	01-05-2012 06:36 PM
Select Series Color - Macro	judicial85	Excel Programming	0	03-14-2011 02:35 PM
Select text by color	Invain	Word	1	02-14-2010 07:08 AM