蒂姆想知道是否可以使用“查找和替换”来搜索和定位文本框。他想搜索文本框并用图形替换每个文本框，因为他发现当某些文本框在文档中基本不可见时，几乎无法手动完成此操作。

如果您的文本框与文本内联，则可以使用“查找并替换”来查找和替换它们。您需要做的就是显示“查找和替换”对话框的“替换”选项卡，然后在“查找内容”框中输入^ g。这是用于查找图形的代码，但是Word内联时会将文本框视为图形对待。

问题是，当然，大多数文本框不是内联的—文本环绕在它们周围，并且它们驻留在自己的层上。对于这些类型的文本框，必须使用宏进行搜索和替换。以下是您可以使用的示例：

Sub ReplaceTextBox()

Dim shp As Shape

For Each shp In ActiveDocument.Shapes         If shp.Type = msoTextBox Then             shp.Select             shp.Delete             Selection.PasteAndFormat (wdPasteDefault)

End If     Next End Sub

若要使用宏，请选择要在替换中使用的图形，然后按Ctrl + C。这会将图形放置在剪贴板中。当您运行宏时，是此图形（剪贴板中的图形）被粘贴到文档中，代替了每个文本框。

您应该意识到，宏用图形替换了文档中的所有文本框。如果要有选择地替换文本框，则编码会复杂得多。

注意：

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

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

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

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（2894）适用于Microsoft Word 2007、2010、2013和2016。