VBA
The following code has been successfully tested against your sample file
Sub clear_superscript()
Selection.HomeKey Unit:=wdStory
Do
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
If Selection.Font.Position > 0 Then Selection.Delete Unit:=wdCharacter, Count:=1...