Так чуть короче:
unicodes = Array(211, 243, 260, 261, 262, 263, 280, 281, 321, 322, 323, 324, 346, 347, 379, 380)
For i = 0 To UBound(unicodes)
ActiveDocument.Content.Find.Execute FindText:=ChrW(unicodes(i)), ReplaceWith:=ChrW(unicodes(i)), Replace:=wdReplaceAll, MatchCase:=True...