Angela tiene un documento que tiene alrededor de 400 cuadros de texto y cada cuadro de texto contiene texto. Se pregunta si hay alguna forma de eliminar los cuadros de texto pero dejar el texto en el documento.

Esto se puede hacer manualmente simplemente seleccionando el texto en un cuadro de texto (asegurándose de no seleccionar el cuadro de texto en sí), presionando Ctrl + C para copiar el texto, haciendo clic donde desea que vaya el texto, presionando Ctrl + V y luego eliminando el cuadro de texto. Sin embargo, esto se volvería tedioso rápidamente cuando se trata de tantos cuadros de texto como Angela.

En este caso, es mejor confiar en una macro para realizar los cambios. La macro puede recorrer todos los cuadros de texto con bastante rapidez, haciendo el trabajo necesario. El siguiente es un ejemplo de una macro de este tipo:

Sub ConvertTextboxText()

Dim shp As Shape     Dim oRngAnchor As Range     Dim sTemp As String     Dim J As Long

For J = ActiveDocument.Shapes.Count To 1 Step -1         Set shp = ActiveDocument.Shapes(J)

If shp.Type = msoTextBox Then             sTemp = shp.TextFrame.TextRange.Text             If Len(sTemp) > 1 Then                 Set oRngAnchor = shp.Anchor.Paragraphs(1).Range                 sTemp = Left(sTemp, Len(sTemp) - 1)

oRngAnchor.InsertBefore "[[ " & sTemp & " ]]"

End If             shp.Delete         End If     Next J End Sub

Esta macro solo funciona con cuadros de texto, ignorando cualquier otra forma que pueda contener texto. Comienza en el último cuadro de texto y avanza hacia el principio del documento. Cuando termine, todo el texto que solía estar dentro de los cuadros de texto se inserta al principio del párrafo al que se ancló previamente el cuadro de texto eliminado.

Además, ese texto está rodeado por [[corchetes dobles]] para que pueda saber fácilmente dónde se encuentra el texto. Dado que los cuadros de texto a veces se pueden anclar un poco lejos de donde aparecen en el documento, definitivamente querrá buscar estos fragmentos de texto entre corchetes y moverlos a donde desee que se ubiquen finalmente.

Si está buscando otras formas de realizar la misma tarea, es posible que le interese esta página web:

https://www.datanumen.com/blogs/2-quick-methods-extract-texts-text-boxes-word-document/

_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). Este consejo (7739) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365.