2 brze metode za izdvajanje teksta iz tekstualnih okvira u vašem Word dokumentu

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

S vremena na vrijeme možemo dobiti Word datoteku koja sadrži velik broj tekstnih okvira. Obično će unutar tih okvira biti tekstovi ili relativni sadržaji. Tada može postojati potreba da se unutra stave samo tekstovi umjesto da se zadrži cijeli tekstni okvir.

Naravno, brzo je dohvatiti riječi unutar jednog tekstualnog okvira jednostavnim kopiranjem teksta i lijepljenjem na neko drugo mjesto. Međutim, kada je riječ o stotinama njih, bilo bi bolje da naučimo nekoliko brzih savjeta kako obaviti posao.

Metoda 1: Koristite "okno za odabir"

1. Prvo i najvažnije, kliknite karticu "Početna".
2. Zatim kliknite ikonu "Odaberi" u grupi "Uređivanje".
3. Zatim na padajućem izborniku odaberite "Okno za odabir".
4. Sada na desnoj strani zaslona možete vidjeti sve tekstualne okvire vidljive u oknu.
5. Pritisnite “Ctrl” i kliknite te nazive tekstnih okvira na oknu jedan po jedan da biste ih sve odabrali.
6. I pomaknite kursor na jednu od linija okvira i kliknite desnim klikom.
7. Na popisu opcija kliknite "Kopiraj". Sada, ako vam ti okviri više neće trebati, samo pritisnite “Izbriši”.
8. Zatim kliknite "Start" za prikaz izbornika sustava Windows.
9. Odaberite "WordPad" i otvorite ga.
10. Zatim kliknite "Zalijepi" da biste dobili sve tekstove iz tekstnih okvira.
11. Zatim odaberite sve tekstove i desnom tipkom miša odaberite “Kopiraj”.
12. Sada otvorite novi Wordov dokument i desnom tipkom miša odaberite "Zadrži samo tekst" da biste dobili tekst.

Metoda 2: Koristite VBA kodove

Kao što vidite, čak ni s prvom metodom ne možete izbjeći odabir svih tekstnih okvira. U slučaju da neki od vas samo mrze takav rad, ovdje smo da vam ponudimo način pokretanja makronaredbe. Pomoću metode 2 možete izdvojiti sve tekstove odjednom i izbrisati tekstne okvire.

1. Prvo pritisnite “Alt+ F11” da biste otvorili VBA editor.
2. Zatim kliknite "Normalno", a zatim "Umetni".
3. Zatim odaberite "Modul" za umetanje novog.
4. Zatim dvaput kliknite na naziv modula da biste otvorili područje za uređivanje.
5. Zalijepite sljedeće kodove i kliknite "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 što ćete vjerojatno dobiti:

Nosite se s uništenim Word datotekama

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

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Alat za oporavak pogreške u Excel datoteci i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com