Sub DeleteCoding()
Application.ScreenUpdating = False
Dim Rng As Range
With Selection.Range
Set Rng = Selection.Range
With Rng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchWildcards = True
    .text = "[\{]{1,}[!\}]@[\}]{1,}" 'find text within curly braces and replace with square bracket blank
    .Replacement.text = "[" & ChrW(9679) & "]"
    .Execute Replace:=wdReplaceAll
    .MatchWildcards = False
    .text = "<"                      'remove all instances of less than symbol
    .Replacement.text = ""
    .Execute Replace:=wdReplaceAll
    .text = ">"                      'remove all instances of greater than sumbol
    .Replacement.text = ""
    .Execute Replace:=wdReplaceAll
    End With
    With Rng.Find
    .Format = False
    .Font.Superscript = True         'remove superscript wording
    .text = ""
    .Replacement.text = ""
    .Execute Replace:=wdReplaceAll
    End With
    Application.ScreenUpdating = True
    End With
End Sub