Angela ha un documento che contiene circa 400 caselle di testo e ogni casella di testo contiene testo. Si chiede se esiste un modo per rimuovere le caselle di testo ma lasciare il testo nel documento.

Questo può essere fatto manualmente semplicemente selezionando il testo in una casella di testo (assicurandosi di non selezionare la casella di testo stessa), premendo Ctrl + C per copiare il testo, facendo clic dove si desidera che vada il testo, premendo Ctrl + V e quindi eliminando la casella di testo. Ciò, tuttavia, diventerebbe rapidamente noioso quando hai a che fare con tante caselle di testo quante ne ha Angela.

In questo caso, è meglio fare affidamento su una macro per eseguire le modifiche. La macro può scorrere abbastanza rapidamente attraverso tutte le caselle di testo, facendo il lavoro necessario. Quello che segue è un esempio di tale macro:

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

Questa macro funziona solo con le caselle di testo, ignorando qualsiasi altra forma che potrebbe contenere testo. Inizia dall’ultima casella di testo e procede verso l’inizio del documento. Al termine, tutto il testo che era all’interno delle caselle di testo viene inserito all’inizio del paragrafo a cui era precedentemente ancorata la casella di testo eliminata.

Inoltre, il testo è racchiuso tra [[doppie parentesi]] in modo da poter facilmente capire dove si trova il testo. Poiché a volte le caselle di testo possono essere ancorate molto lontano da dove appaiono nel documento, vorrai sicuramente cercare questi pezzi di testo tra parentesi doppie e spostarli dove vuoi che si trovino finalmente.

Se stai cercando altri modi per svolgere lo stesso compito, potresti essere interessato a questa pagina web:

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

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (7739) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365.