[KD装饰] 王少杰:
如果要替换的数在Word表格中,这个Word只有一个表格,可以使用下面的方式进行处理:SUb宏1()dimrngascellsetrng=activedocument.tables(1).cell(1,1)ifinstr(rng.range.text,"42")thenrng.range.text=int(40+10*rnd())dosetrng=rng.nextifinstr(rng.range.text,"42")thenrng.range.text=int(40+10*rnd())loop....