创建以下宏
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
原文：http://www.cnblogs.com/mybuilder/p/5899280.html