GEN:
SUbshux()dimrngasrange,shuasdoublesetrng=activedocument.contentwithrng.find.clearFormatting.replacement.clearFormatting.matchwildcards=truedowhile.execute(findtext:="[0-9.-]{1,}")'包括小数和负数msgboxrngifvba.isnumeric(rng)thenshu=replace(rng,rng,rng+50....