Roderick:
创建以下宏SUb替换Word文本框内容()dimmshapeasshapedimtmPStringasstringForeachmshapeinactivedocument.shapesifmshape.type=msotextboxthentmPString=mshape.textframe.textrange.textmshape.textframe.textrange.text=replace(tmPString,"查找内容","替换内容")endifnextendSUb将查找内容跟替换内....