2 hitri metodi za ekstrahiranje besedil iz besedilnih polj v vašem Wordovem dokumentu

V tem članku vam želimo pokazati 2 hitri in enostavni metodi za ekstrahiranje besedil iz besedilnih polj v Wordovem dokumentu.

Od časa do časa lahko dobimo Wordovo datoteko, ki vsebuje veliko besedilnih polj. Običajno so znotraj teh polj besedila ali relativna vsebina. Potem lahko pride do potrebe, da notri dobite samo besedila, namesto da obdržite celotno besedilno polje.

Vsekakor je hitro pridobiti besede v enem samem besedilnem polju tako, da preprosto kopirate besedilo in ga prilepite nekam drugam. Ko pa jih je na stotine, bi bilo bolje, da se naučimo nekaj hitrih nasvetov za opravljanje dela.

1. način: uporabite »izbirno podokno«

1. Najprej in predvsem kliknite zavihek »Domov«.
2. Nato kliknite ikono »Izberi« v skupini »Urejanje«.
3. Nato v spustnem meniju izberite »Izbirno podokno«.
4. Zdaj lahko na desni strani zaslona vidite vsa besedilna polja, ki so vidna v podoknu.
5. Pritisnite »Ctrl« in enega za drugim kliknite ta imena besedilnih polj v podoknu, da jih izberete vsa.
6. In premaknite kazalec na eno od vrstic polja in z desno miškino tipko kliknite.
7. Na možnosti seznama kliknite »Kopiraj«. Zdaj, če teh polj ne boste več potrebovali, preprosto pritisnite »Izbriši«.
8. Nato kliknite »Start«, da si ogledate meni sistema Windows.
9. Izberite »WordPad« in ga odprite.
10. Nato kliknite »Prilepi«, da dobite vsa besedila iz besedilnih polj.
11. Nato izberite vsa besedila in z desnim klikom izberite »Kopiraj«.
12. Zdaj odprite nov Wordov dokument in z desnim klikom izberite »Ohrani samo besedilo«, da dobite besedilo.

2. način: Uporabite kode VBA

Kot lahko vidite, se tudi pri prvi metodi ne morete izogniti izbiri vseh besedilnih polj. V primeru, da nekateri preprosto sovražite takšno delovno delo, vam tukaj ponujamo način za zagon makra. Z 2. metodo lahko izvlečete vsa besedila naenkrat in izbrišete besedilna polja.

1. Najprej pritisnite »Alt + F11«, da odprete urejevalnik VBA.
2. Nato kliknite »Normalno« in nato »Vstavi«.
3. Nato izberite »Modul«, da vstavite novega.
4. Nato dvakrat kliknite na ime modula, da odprete območje za urejanje.
5. Prilepite naslednje kode in kliknite »Zaženi«:

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

Tukaj je tisto, kar boste verjetno dobili:

Spopadajte se z uničenimi besednimi datotekami

Word je nagnjen k napakam in je zato pogosta žrtev korupcije. Zato morate svoje dokumente pravilno upravljati, da jih zaščitite pred poškodbami. Ko se enkrat pokvarijo, se boste soočili s tveganjem, da jih trajno izgubite. Potem boste morali uporabiti orodje za obnovitev poškodovanih Wordovih podatkov.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z Orodje za obnovitev napak datotek Excel in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com