批量替换word文本框内容

替换word文本框内容创建以下宏Sub替换word文本框内容()DimmShapeAsShapeDimtmpStringAsStringForEachmShapeInActiveDocument.ShapesIfmShape.Type=msoTextBoxThentmpString=mShape.TextFrame.TextRange.TextmShape.TextFrame.TextRange.Text=Replace(tmpString,查找内容,替换内容)EndIfNextEndSub将查找内容跟替换内容更换即可