批量替换word文本框内容

来源：钮旅网

替换word文本框内容

创建以下宏

Sub 替换word文本框内容()

Dim mShape As Shape

Dim tmpString As String

For Each mShape In ActiveDocument.Shapes

If mShape.Type = msoTextBox Then

tmpString = mShape.TextFrame.TextRange.Text

mShape.TextFrame.TextRange.Text = Replace(tmpString, \"查找内容\替换内容\")

End If

End Sub

将查找内容跟替换内容更换即可

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文

违法及侵权请联系：TEL:199 1889 7713 E-MAIL:2724546146@qq.com

本站由北京市万商天勤律师事务所王兴未律师提供法律服务