document.selection.Replace "[⒈⒉⒊⒋⒌⒍⒎⒏⒐⒑⒒⒓⒔⒕⒖⒗⒘⒙⒚⒛]","9.",eeFindNext Or eeReplaceAll Or eeFindReplaceRegExp
document.selection.Replace "^\d+.(.+)：(.+)","\1#\1@\1,\1#\1@\1:\2",eeFindNext Or eeReplaceAll Or eeFindReplaceRegExp