Select Red text and Delete

		Microsoft Office Forums > Microsoft Word > Word VBA
Select Red text and Delete

FAQ

Thread Tools

Display Modes

02-16-2017, 01:54 PM

Souriane

Windows 7 64bit Select Red text and Delete

Office 2013

Advanced Beginner

Join Date: Feb 2017

Location: Quebec, Canada

Posts: 82

Hi!

Try this :

Code:

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

« Previous Thread | Next Thread »

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
After putting a text box behind text I can't select it anymore	Mike84bs	Word	2	07-25-2016 07:36 AM
How to select the text of certain length?	gn4619	Word VBA	6	04-30-2015 12:56 PM
VBA Search Table for Text/Select Text/Insert Hyperlink	sldrellich	Word VBA	3	03-24-2015 01:09 PM
Microsoft Word macro to find text, select all text between brackets, and delete	helal1990	Word VBA	4	02-05-2015 03:52 PM
Select section of text and change text	newbieX	Word VBA	3	03-28-2014 04:21 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 09:10 PM.