求对一个EmEditor 宏 精简，求高手啊

var nFlags = eeFindNext

eeReplaceAll

eeFindReplaceRegExp;

document.selection.Replace(",","，",eeFindNext	eeReplaceAll);//表示数量时应用半角，如$1,000,000。下一个语句做出了修改
document.selection.Replace("([0-9])，([0-9]{3})","

\\\\1,\\\\2",nFlags

);

document.selection.Replace("([0-9])。([0-9])","

\\\\1\\\\.\\\\2",nFlags

);
document.selection.Replace("?","？",eeFindNext	eeReplaceAll);//此处替换可能会有错
document.selection.Replace("!","！",eeFindNext	eeReplaceAll);

document.selection.Replace(":","：",eeFindNext	eeReplaceAll);//表示时刻时应用半角，如9:00，下一个语句做出了修改
document.selection.Replace("([0-9])：([0-9])","

\\\\1:\\\\2",nFlags

);

document.selection.Replace(";","；",eeFindNext	eeReplaceAll);
document.selection.Replace("(","（",eeFindNext	eeReplaceAll);
document.selection.Replace(")","）",eeFindNext	eeReplaceAll);
document.selection.Replace("~","～",eeFindNext	eeReplaceAll);

//引号部分的转换可能存在错误，脚本运行完毕后，会以绿色标示出来，请手动修改。

document.selection.Replace("([: ])\\x22","

\\\\1“",eeFindNext

	eeReplaceAll)//x22为引号
document.selection.Replace("(。	？	！	…)\\x22","

\\\\1”",eeFindNext

	eeFindReplaceEscSeq	eeReplaceAll	eeFindReplaceRegExp);
document.selection.Replace("\\x22$","”",eeFindNext	eeFindReplaceEscSeq	eeReplaceAll	eeFindReplaceRegExp);
document.selection.Replace("\\x22","“",eeFindNext	eeReplaceAll);
document.selection.Replace("“([^”]*)$\\\ ^\\\\s*([^“]*)”","“\\\\1\\\\2”",nFlags);
document.selection.Find("“[^”]*“	”[^“]*”	^[^“]*”	“[^”]*$	‘[^’]*$	^[^‘]*'	‘[^’]*‘	’[^‘]*’",eeFindNext	eeFindReplaceRegExp);

你的脚本有些替换是不科学的，把内容稍微删减了下，另将一些建议添加进了注释。

那个替换引号的语句感觉没写的必要，这个功能很难完全靠脚本很保险地实现，不过没有删。。。