How to change the color of special Characters

[Rakesh]

:anyone:
Hi Rocks,

Through Coding Can it Possible to find and change the color of special characters, such as ®, ™, © etc.

If so please help.

Thanks in advance
:banghead: Rakesh

[gmaxey]

Each of those characters has a ASC number which you can find by selecting the text and running the following line of code in the VBE Immediate window:

Msgbox Asc(Selection.Text)

Using those codes you can then:

Sub ScratchMaco()
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = Chr(174)
While .Execute
oRng.Font.Color = wdColorRed
Wend
End With
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = Chr(153)
While .Execute
oRng.Font.Color = wdColorRed
Wend
End With
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = Chr(169)
While .Execute
oRng.Font.Color = wdColorRed
Wend
End With
End Sub

[Rakesh]

:mbounce2:
Hi gmaxey,

Thanks a Ton for your kind reply.

Its working Fine
:beerchug: Rakesh

[fumei]

As all your special characters are ASC > 127, you may also want to try something:
Dim oChar
For Each oChar In ActiveDocument.Range.Characters
If Asc(oChar) > 127 Then
oChar.HighlightColorIndex = wdRed
End If
Next

[Rakesh]

Hi Fumei,

Thanks for your kind reply. Its working fine, but it looks like a background color. How to color the text?

Thanks
Rakesh
:beerchug:

[gmaxey]

The same as we did before:

Sub ScratchMaco()
Dim oChar
For Each oChar In ActiveDocument.Range.Characters
If Asc(oChar) > 127 Then
oChar.Font.Color = wdColorRed
End If
Next
End Sub