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的旧菜单界面在这里:

查找文本框​​。