创建以下宏
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