Sub Symbol()Options.DefaultHighlightColorIndex = wdBrightGreen Application.ScreenUpdating = False Dim rngStory As Range, i As Long Dim StrOld As String, StrNew As String StrOld = "ChrW(-3988)|ChrW(-4030)" StrNew = "ChrW(955)|ChrW(914)" For Each rngStory In ActiveDocument.StoryRanges With rngStory Select Case .StoryType Case wdMainTextStory, wdEndnotesStory, wdFootnotesStory With .Find .ClearFormatting .Replacement.ClearFormatting .MatchWildcards = True .Forward = True .Wrap = wdFindStop .Format = False For i = 0 To UBound(Split(StrOld, "|")) .Text = Split(StrOld, "|")(i) .Replacement.Text = Split(StrNew, "|")(i) .Replacement.Font.Name = "Times New Roman" .Replacement.Highlight = True .Execute Replace:=wdReplaceAll Next End With End Select End With Next rngStory Application.ScreenUpdating = True End Sub