Red Text

[Johnnyboy5]

Red Text


I have a template document - in which some the text in various places
is in RED “instructions etc” which is to be deleted before its saved.

Can someone suggest a “macro” which can select all the “RED” text and
then delete it.

Thanks

Johnny

 

[Graham Mayor]

Sub DeleteRed()
Dim orng As Range
Set orng = ActiveDocument.Range
With orng.Find
.Font.Color = wdColorRed
Do While .Execute(Forward:=True)
orng.Delete
Loop
End With
End Sub

http://www.gmayor.com/installing_macro.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Red Text


I have a template document - in which some the text in various places
is in RED “instructions etc” which is to be deleted before its saved.

Can someone suggest a “macro” which can select all the “RED” text and
then delete it.

Thanks

Johnny

 

[Suzanne S. Barnhill]

Graham has provided the macro you need, but you don't really need a macro if
you're doing it yourself:

1. Ctrl+H to open the Replace dialog.

2. Click More to expand the dialog.

3. With the insertion point in the (empty) "Find what" box, click Format,
then Font, and choose red as the color. You will see "Format: Font color:
Red" under the "Find what" box.

4. Leaving the "Replace with" box empty, click Replace All.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
http://word.mvps.org

Red Text


I have a template document - in which some the text in various places
is in RED “instructions etc” which is to be deleted before its saved.

Can someone suggest a “macro” which can select all the “RED” text and
then delete it.

Thanks

Johnny

 

[Johnnyboy5]

Graham has provided the macro you need, but you don't really need a macroif
you're doing it yourself:

1. Ctrl+H to open the Replace dialog.

2. Click More to expand the dialog.

3. With the insertion point in the (empty) "Find what" box, click Format,
then Font, and choose red as the color. You will see "Format: Font color:
Red" under the "Find what" box.

4. Leaving the "Replace with" box empty, click Replace All.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USAhttp://word.mvps.org


Red Text

I have a template document - in which some the text in various places
is in RED “instructions etc” which is to be deleted before its saved.

Can someone suggest a “macro” which can select all the “RED” textand
then delete it.

Thanks

Johnny

Thanks both, went for Graham's macro - as its a one click action.

Thanks Graham -

Johnny