document.selection.Replace "\s","",eeFindNext Or eeReplaceAll Or eeFindReplaceRegExp
document.selection.Replace "(\w)","\1#\1@。\n",eeFindNext Or eeReplaceAll Or eeFindReplaceRegExp