zantext="脏1，脏2，脏3。。。。。。。"
zan=split(zantext,",") 分断脏字
for i=0 to ubound(zan) 开始查找
for x=0 to len(zan(i)) 算出替换后的*号个数
xin=xin & "*"
next
bodys=replace(bodys,zan,xin) 一次次的替换
xin=""
x=0
印像空间
辽ICP备06002300号
