2 kiiret meetodit tekstide väljavõtmiseks oma Wordi dokumendi tekstikastidest

Selles artiklis tahame teile näidata kahte kiiret ja hõlpsasti kasutatavat meetodit tekstide ekstraheerimiseks Wordi dokumendi tekstikastidest.

Aeg-ajalt võime hankida Wordi faili, mis sisaldab suurt hulka tekstikaste. Tavaliselt on nendes kastides tekste või suhtelist sisu. Siis võib kogu tekstikasti hoidmise asemel tekkida vajadus saada ainult tekstid sisse.

Kindlasti saab ühest tekstikastist sõnu kiiresti hankida, kopeerides teksti välja ja kleepides selle mujale. Kui aga tegemist on sadadega, on parem õppida mõned kiired näpunäited töö tegemiseks.

1. meetod: kasutage valikupaani

1. Esiteks ja kõige tähtsam on klõpsata vahekaardil „Avaleht”.
2. Seejärel klõpsake rühmas "Redigeerimine" ikooni "Vali".
3. Järgmisena valige rippmenüüst "Valikpaneel".
4. Nüüd näete ekraani paremas servas kõiki paanil nähtavaid tekstikaste.
5. Vajutage "Ctrl" ja klõpsake nende kõigi valimiseks paanil ükshaaval neid tekstiväljade nimesid.
6. Ja liigutage kursori asetamiseks ühele kastireale ja paremklõpsake.
7. Klõpsake loendis valikul "Kopeeri". Kui te neid kaste enam ei vaja, vajutage lihtsalt nuppu "Kustuta".
8. Järgmisena klõpsake Windowsi menüü kuvamiseks nuppu „Start”.
9. Valige "WordPad" ja avage see.
10. Seejärel klõpsake nuppu "Kleebi", et saada kõik tekstikastidest tekstid.
11. Järgmisena valige kõik tekstid ja paremklõpsake, et valida "Kopeeri".
12. Nüüd avage uus Wordi dokument ja paremklõpsake, et valida teksti hankimiseks "Säilita ainult tekst".

2. meetod: kasutage VBA koode

Nagu näete, ei saa isegi esimese meetodi puhul vältida kõigi tekstiväljade valimist. Kui mõned teist lihtsalt vihkavad sellist tööjõudu, pakume teile võimalust makro käivitamiseks. 2. meetodi abil saate kõik tekstid korraga välja võtta ja tekstikastid kustutada.

1. Esiteks vajutage VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
2. Teiseks klõpsake "Tavaline" ja seejärel "Insert".
3. Järgmisena valige uue lisamiseks "Moodul".
4. Seejärel topeltklõpsake redigeerimisala avamiseks mooduli nimel.
5. Kleepige järgmised koodid ja klõpsake nuppu "Käivita":

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

Siin on see, mida tõenäoliselt saate:

Tutvuge purustatud Wordi failidega

Wordis esineb vigu ja seetõttu sagedane korruptsiooni ohver. Seetõttu peate oma dokumente õigesti haldama, et kaitsta neid kahjustuste eest. Kui nad kord rikutakse, on teil oht need jäädavalt kaotada. Siis peate kasutama rikutud Wordi andmete taastamise tööriist.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas Exceli faili vea taastamise tööriist ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom