Word具有强大的搜索和替换功能，可让您搜索文档中几乎所有内容。 Word甚至包括可用于搜索特殊项目的代码。 （单击“查找和替换”对话框中的“特殊”按钮以查看可用的代码。）但是，您无法搜索的一件事是文本框。没有特殊的代码可让您查找文本框，并且无法使用“对象浏览器”进行搜索。

但是，您可以使用宏浏览文档，并在找到文本框时停止。下面的宏停在它找到的每个文本框上，并询问用户是否需要该文本框。

Sub SearchTextBox()

Dim shp As Shape     Dim sTemp As String     Dim iAnswer As Integer

For Each shp In ActiveDocument.Shapes         If shp.Type = msoTextBox Then             shp.Select             Selection.ShapeRange.TextFrame.TextRange.Select             sTemp = Selection.Text             sTemp = Left(sTemp,20)

iAnswer = MsgBox("Box contains text beginning with:" & vbCrLf _               & sTemp & vbCrLf & "Stop here?", vbYesNo, "Located Text Box")

If iAnswer = vbYes Then Exit For         End If     Next End Sub

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（12249）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

查找文本框​​。