2 raske metoder for å trekke ut tekster fra tekstbokser i Word-dokumentet ditt

I denne artikkelen vil vi vise deg 2 raske og enkle å bruke metoder for å trekke ut tekster fra tekstbokser i Word-dokumentet ditt.

Fra tid til annen kan vi få en Word-fil som inneholder et stort antall tekstbokser. Vanligvis vil det være tekster eller relativt innhold i disse boksene. Da kan det være behov for å få bare tekstene inne i stedet for å beholde hele tekstboksen.

Selvfølgelig er det raskt å hente ord i én enkelt tekstboks ved å kopiere teksten ut og lime den inn et annet sted. Men når det kommer til hundrevis av dem, bør vi lære noen raske tips for å få jobben gjort.

Metode 1: Bruk "Utvalgsruten"

1. Først og fremst, klikk på "Hjem"-fanen.
2. Klikk deretter på "Velg"-ikonet i "Redigering"-gruppen.
3. Deretter, på rullegardinmenyen, velg "Utvalgsrute".
4. Nå på høyre side av skjermen kan du se alle tekstbokser som er synlige i ruten.
5. Trykk "Ctrl" og klikk på tekstboksnavnene i ruten en etter en for å velge dem alle.
6. Og flytt for å legge markøren på en av boksen linje og høyreklikk.
7. Klikk på "Kopier" på listealternativet. Nå hvis du ikke trenger disse boksene lenger, trykk bare "Slett".
8. Klikk deretter på «Start» for å se Windows-menyen.
9. Velg "WordPad" og åpne den.
10. Klikk deretter "Lim inn" for å hente alle tekstene fra tekstboksene.
11. Deretter velger du alle tekstene og høyreklikker for å velge "Kopier".
12. Åpne nå et nytt Word-dokument og høyreklikk for å velge "Behold kun tekst" for å få teksten.

Metode 2: Bruk VBA-koder

Som du kanskje ser, selv med den første metoden, kan du ikke unngå å velge alle tekstbokser. I tilfelle noen av dere bare hater slikt arbeidsarbeid, er vi her for å tilby deg måten å kjøre en makro. Med metode 2 kan du trekke ut alle tekstene på en gang og få tekstboksene slettet.

1. Først trykker du "Alt + F11" for å åpne VBA-editoren.
2. For det andre, klikk "Normal" og deretter "Sett inn".
3. Velg deretter "Modul" for å sette inn en ny.
4. Dobbeltklikk deretter på modulnavnet for å åpne redigeringsområdet.
5. Lim inn følgende koder og klikk "Kjør":

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

Her er hva du sannsynligvis vil få:

Takle ødelagte Word-filer

Word er utsatt for feil og er derfor et hyppig offer for korrupsjon. Derfor må du administrere dokumentene dine riktig for å beskytte dem mot skade. For når de først blir ødelagt, vil du risikere å miste dem permanent. Da må du bruke skadet Word-datagjenopprettingsverktøy.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert Verktøy for gjenoppretting av Excel-filfeil og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med