Word tiene una potente capacidad de búsqueda y reemplazo que le permite buscar prácticamente cualquier cosa en su documento. Word incluso incluye códigos que puede usar para buscar elementos especiales. (Haga clic en el botón Especial en el cuadro de diálogo Buscar y reemplazar para ver qué códigos están disponibles). Sin embargo, una cosa que no puede buscar son los cuadros de texto. No existe un código especial que le permita buscar cuadros de texto y no puede buscarlos con el Explorador de objetos.

Sin embargo, puede utilizar una macro para examinar un documento y detenerse cuando encuentre un cuadro de texto. La siguiente macro se detiene en cada cuadro de texto que encuentra y pregunta al usuario si ese es el cuadro de texto deseado.

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

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Esta sugerencia (12249) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365. Puede encontrar una versión de esta sugerencia para interfaz de menú anterior de Word aquí:

link: / word-Finding_Text_Boxes [Encontrar cuadros de texto].