În acest articol, dorim să vă arătăm 2 metode rapide și ușor de utilizat pentru a extrage texte din casetele de text din documentul Word.
Din când în când, putem obține un fișier Word care conține un număr mare de casete de text. De obicei, vor exista texte sau conținut relativ în interiorul acestor casete. Apoi poate exista necesitatea de a introduce doar textele înăuntru în loc să păstrați întreaga casetă de text.
Cu siguranță, este rapid să recuperați cuvinte dintr-o singură casetă de text pur și simplu prin copierea textului și lipirea lui în altă parte. Cu toate acestea, când vine vorba de sute dintre ele, ar fi bine să învățăm câteva sfaturi rapide pentru a duce treaba la bun sfârșit.
Metoda 1: Folosiți „Paneul de selecție”
- În primul rând, faceți clic pe fila „Acasă”.
- Apoi faceți clic pe pictograma „Selectați” în grupul „Editare”.
- Apoi, în meniul drop-down, alegeți „Panoul de selecție”.

- Acum, în partea dreaptă a ecranului, puteți vedea toate casetele de text vizibile în panou.
- Apăsați „Ctrl” și faceți clic pe acele nume de casete de text din panou unul câte unul pentru a le selecta pe toate.
- Și mutați pentru a așeza cursorul pe una dintre linia casetei și faceți clic dreapta.
- În opțiunea listă, faceți clic pe „Copiare”. Acum, dacă nu veți mai avea nevoie de acele casete, apăsați pe „Șterge”.
- Apoi faceți clic pe „Start” pentru a vizualiza meniul Windows.
- Alegeți „WordPad” și deschideți-l.
- Apoi faceți clic pe „Lipire” pentru a obține toate textele din casetele de text.
- Apoi, selectați toate textele și faceți clic dreapta pentru a alege „Copiare”.
- Acum deschideți un nou document Word și faceți clic dreapta pentru a alege „Păstrați doar text” pentru a obține textul.
Metoda 2: Utilizați coduri VBA
După cum puteți vedea, chiar și cu prima metodă, nu puteți evita selectarea tuturor casetelor de text. În cazul în care unii dintre voi pur și simplu urăsc astfel de muncă, iată că vă oferim modalitatea de a rula o macrocomandă. Cu metoda 2, puteți extrage toate textele dintr-o singură mișcare și puteți șterge casetele de text.
- În primul rând, apăsați „Alt+ F11” pentru a deschide editorul VBA.
- În al doilea rând, faceți clic pe „Normal” și apoi pe „Inserare”.
- Apoi alegeți „Modul” pentru a introduce unul nou.
- Apoi faceți dublu clic pe numele modulului pentru a deschide zona de editare.
- Lipiți următoarele coduri și faceți clic pe „Run”:
Sub DeleteTextBoxesAndExtractTheText()
Dim nNumber As Integer
Dim strText As String
' Delete all textboxes and extract the text from them
With ActiveDocument
For nNumber = .Shapes.Count To 1 Step -1
If .Shapes(nNumber).Type = msoTextBox Then
strText=strText& .Shapes(nNumber).TextFrame.TextRange.Text & vbCr
.Shapes(nNumber).Delete
End If
Next
End With
' Open a new document to paste the text from textboxes.
If strText <> "" Then
Documents.Add Template:="Normal"
ActiveDocument.Range.Text = strText
Else
MsgBox ("There is no textbox.")
End If
End Sub
Iată ce este probabil să obțineți:
Faceți față cu fișierele Word ruinate
Cuvântul este predispus la erori și, prin urmare, o victimă frecventă a corupției. Prin urmare, trebuie să vă gestionați documentele în mod corespunzător pentru a le proteja de deteriorare. Odată ce sunt corupte, te vei confrunta cu riscul de a le pierde definitiv. Apoi va trebui să utilizați instrument corupt de recuperare a datelor Word.
Introducerea autorului:
Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv Instrument de recuperare a erorilor fișierelor Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com







