Replace a "==>" with symbol

[srinidhi.mv88]

Hello all,

I had written a macro to find and replace "==>" to Unbenannt.JPG automatically. But its not changing this to symbol what i required.

Here is the code

Sub Replace_Symbol()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "==>"
.Replacement.Text = "==>"
.Replacement.Style = ActiveDocument.Styles("Emphasis")
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub



Please help me to achieve it.

Thanks a lot.

Regards,
Srinidhi