word 替换文本框

Posted mybuilder

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了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
Next
End Sub

　　

以上是关于word 替换文本框的主要内容，如果未能解决你的问题，请参考以下文章

word文本框里英文单词之间空格大小不一样怎么办

word VBA如何实现TextBox中的文字居中对齐，文本框有相关的属性么？谢谢

日志分析 批量给指定内容标记颜色 word 文本

Access VBA - 换行符的查找和替换文本在我的 Word 文档中返回奇怪的块

word删除文档中所有空格

Qt 中怎么设置框架中的文本框的透明度