欢迎来到天天文库
浏览记录
ID:52905246
大小:20.00 KB
页数:2页
时间:2020-03-31
《批量替换word文本框内容.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、替换word文本框内容创建以下宏Sub替换word文本框内容() DimmShapeAsShape DimtmpStringAsString ForEachmShapeInActiveDocument.Shapes IfmShape.Type=msoTextBoxThen tmpString=mShape.TextFrame.TextRange.Text mShape.TextFrame.TextRange.Text=Replace(tmpString,"查找内容","替换
2、内容") EndIf NextEndSub将查找内容跟替换内容更换即可
此文档下载收益归作者所有