Sub ReplaceSomeUnicodes()
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
ActiveDocument.Content.Find.Execute FindText:=ChrW(211), ReplaceWith:=ChrW(211), Replace:=wdReplaceAll, MatchCase:=True, MatchWildcards:=False
ActiveDocument.Content.Find.Execute FindText:=ChrW(243), ReplaceWith:=ChrW(243), Replace:=wdReplaceAll, MatchCase:=True, MatchWildcards:=False
ActiveDocument.Content.Find.Execute FindText:=ChrW(260), ReplaceWith:=ChrW(260), Replace:=wdReplaceAll, MatchCase:=True, MatchWildcards:=False
ActiveDocument.Content.Find.Execute FindText:=ChrW(261), ReplaceWith:=ChrW(261), Replace:=wdReplaceAll, MatchCase:=True, MatchWildcards:=False
ActiveDocument.Content.Find.Execute FindText:=ChrW(262), ReplaceWith:=ChrW(262), Replace:=wdReplaceAll, MatchCase:=True, MatchWildcards:=False
ActiveDocument.Content.Find.Execute FindText:=ChrW(263), ReplaceWith:=ChrW(263), Replace:=wdReplaceAll, MatchCase:=True, MatchWildcards:=False
ActiveDocument.Content.Find.Execute FindText:=ChrW(280), ReplaceWith:=ChrW(280), Replace:=wdReplaceAll, MatchCase:=True, MatchWildcards:=False
ActiveDocument.Content.Find.Execute FindText:=ChrW(281), ReplaceWith:=ChrW(281), Replace:=wdReplaceAll, MatchCase:=True, MatchWildcards:=False
ActiveDocument.Content.Find.Execute FindText:=ChrW(321), ReplaceWith:=ChrW(321), Replace:=wdReplaceAll, MatchCase:=True, MatchWildcards:=False
ActiveDocument.Content.Find.Execute FindText:=ChrW(322), ReplaceWith:=ChrW(322), Replace:=wdReplaceAll, MatchCase:=True, MatchWildcards:=False
ActiveDocument.Content.Find.Execute FindText:=ChrW(323), ReplaceWith:=ChrW(323), Replace:=wdReplaceAll, MatchCase:=True, MatchWildcards:=False
ActiveDocument.Content.Find.Execute FindText:=ChrW(324), ReplaceWith:=ChrW(324), Replace:=wdReplaceAll, MatchCase:=True, MatchWildcards:=False
ActiveDocument.Content.Find.Execute FindText:=ChrW(346), ReplaceWith:=ChrW(346), Replace:=wdReplaceAll, MatchCase:=True, MatchWildcards:=False
ActiveDocument.Content.Find.Execute FindText:=ChrW(347), ReplaceWith:=ChrW(347), Replace:=wdReplaceAll, MatchCase:=True, MatchWildcards:=False
ActiveDocument.Content.Find.Execute FindText:=ChrW(379), ReplaceWith:=ChrW(379), Replace:=wdReplaceAll, MatchCase:=True, MatchWildcards:=False
ActiveDocument.Content.Find.Execute FindText:=ChrW(380), ReplaceWith:=ChrW(380), Replace:=wdReplaceAll, MatchCase:=True, MatchWildcards:=False
End Sub