Sub DeleteCoding()
  Dim Rng As Range
  
  'Application.ScreenUpdating = False
  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
    .Text = "[\[" & ChrW(9679) & "\]]{4,}"
    .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
    .Format = False
    .Font.Superscript = True         'remove superscript wording
    .Text = ""
    .Replacement.Text = ""
    .Execute Replace:=wdReplaceAll
  End With
  'Application.ScreenUpdating = True
End Sub