Select Red text and Delete

[Mcoon]

Hello all,



I am trying to create a macro that will select any red text in a document and then delete it, but I am having trouble doing so.

There are multiple types of formatting in this document (some is smaller font or italicized, etc) that use red text and I want to select/delete them all.

I have been looking online for hours and trying to figure it out myself, but I am new to VBA and I am not getting very far.

Any help would be much appreciated. Thanks!

Windows 10
Office 2016

[macropod]

You don't need a macro for this - it can all be done via a single Find/Replace. Simply set the Find parameter for the font colour to 'red'.

[Souriane]

Hi!

Try this :

Sub ReplaceRed()
'
    With Selection.Find
       .ClearFormatting
       .Font.Color = wdColorRed
       .Replacement.ClearFormatting
       .Text = ""
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = True
 
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    
End Sub

Souriane

[Mcoon]

Thank you so much for your quick reply!

Just solved my problem.

Also, I know it could be done via find/replace, but I want to incorporate this routine into a larger macro that does many different things at once.

Thanks for all the help!

[macropod]

Originally Posted by Mcoon

I know it could be done via find/replace, but I want to incorporate this routine into a larger macro that does many different things at once.

In that case, the macro recorder would have given you all the code you needed - that's basically all the macro posted by Souriane is.