2 brze metode za izdvajanje tekstova iz okvira za tekst u vašem Word dokumentu

U ovom članku želimo vam pokazati 2 brze i jednostavne metode za izdvajanje tekstova iz tekstualnih okvira u vašem Word dokumentu.

S vremena na vrijeme možemo dobiti Word datoteku koja sadrži veliki broj tekstualnih okvira. Obično će se unutar tih okvira nalaziti tekstovi ili relativni sadržaji. Tada može postojati potreba da se unutra unesu samo tekstovi umesto da se zadrži ceo tekstualni okvir.

Naravno, brzo je pronaći riječi unutar jednog okvira za tekst jednostavnim kopiranjem teksta i lijepljenjem negdje drugdje. Međutim, kada je riječ o stotinama njih, bolje bi nam bilo da naučimo nekoliko brzih savjeta kako bismo obavili posao.

Metoda 1: Koristite “Okno za odabir”

1. Prvo i osnovnoost, kliknite na karticu "Početna".
2. Zatim kliknite na ikonu “Odaberi” u grupi “Uređivanje”.
3. Zatim, na padajućem izborniku odaberite “Okno za odabir”.
4. Sada na desnoj strani ekrana možete vidjeti sve tekstualne okvire vidljive u oknu.
5. Pritisnite “Ctrl” i kliknite jedan po jedan naziv tih okvira za tekst u oknu da ih sve odaberete.
6. I pomaknite se da postavite kursor na jednu od linija okvira i kliknite desnim klikom.
7. Na opciji liste kliknite na “Kopiraj”. Sada ako vam ti okviri više neće biti potrebni, samo pritisnite “Delete”.
8. Zatim kliknite na „Start” da vidite Windows meni.
9. Odaberite "WordPad" i otvorite ga.
10. Zatim kliknite na "Zalijepi" da dobijete sve tekstove iz okvira za tekst.
11. Zatim odaberite sve tekstove i kliknite desnim tasterom miša da odaberete “Kopiraj”.
12. Sada otvorite novi Word dokument i kliknite desnim tasterom miša da odaberete "Zadrži samo tekst" da biste dobili tekst.

Metod 2: Koristite VBA kodove

Kao što možete vidjeti, čak i sa prvom metodom, ne možete izbjeći odabir svih tekstualnih okvira. U slučaju da neki od vas jednostavno mrze takav radni rad, evo da vam ponudimo način da pokrenete makro. Sa metodom 2, možete izdvojiti sve tekstove u jednom potezu i izbrisati tekstualne okvire.

1. Prvo pritisnite “Alt+ F11” da otvorite VBA editor.
2. Drugo, kliknite na “Normal”, a zatim na “Insert”.
3. Zatim odaberite “Module” da umetnete novi.
4. Zatim dvaput kliknite na naziv modula da otvorite područje za uređivanje.
5. Zalijepite sljedeće kodove i kliknite na "Pokreni":

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

Evo šta ćete vjerovatno dobiti:

Nosite se s uništenim Word datotekama

Riječ je sklona greškama i stoga je česta žrtva korupcije. Stoga morate pravilno upravljati svojim dokumentima kako biste ih zaštitili od oštećenja. Jer kada se jednom pokvare, suočit ćete se s rizikom da ih trajno izgubite. Tada ćete morati da koristite oštećeni Word alat za oporavak podataka.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Alat za oporavak od grešaka u Excel fajlu i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com