2 hurtige metoder til at udtrække tekster fra tekstbokse i dit Word-dokument

I denne artikel vil vi vise dig 2 hurtige og nemme at bruge metoder til at udtrække tekster fra tekstbokse i dit Word-dokument.

Fra tid til anden kan vi få en Word-fil, der indeholder et stort antal tekstbokse. Normalt vil der være tekster eller relativt indhold i disse kasser. Så kan der være behov for kun at få teksterne inde i stedet for at beholde hele tekstboksen.

Det er bestemt hurtigt at hente ord i en enkelt tekstboks ved blot at kopiere teksten ud og indsætte den et andet sted. Men når det kommer til hundredvis af dem, må vi hellere lære nogle hurtige tips til at få arbejdet gjort.

Metode 1: Brug "Udvalgsruden"

1. Først og fremmest skal du klikke på fanen "Hjem".
2. Klik derefter på "Vælg"-ikonet i "Redigering"-gruppen.
3. Vælg derefter "Udvalgsrude" i rullemenuen.
4. Nu på højre side af skærmen kan du se alle tekstbokse, der er synlige på ruden.
5. Tryk på "Ctrl" og klik på disse tekstboksnavne på ruden en efter en for at vælge dem alle.
6. Og flyt for at lægge markøren på en af ​​boksens linje og højreklik.
7. Klik på "Kopier" på listen. Hvis du nu ikke har brug for disse kasser længere, skal du bare trykke på "Slet".
8. Klik derefter på "Start" for at se Windows-menuen.
9. Vælg "WordPad", og åbn den.
10. Klik derefter på "Indsæt" for at få alle tekster fra tekstfelterne.
11. Vælg derefter alle tekster og højreklik for at vælge "Kopier".
12. Åbn nu et nyt Word-dokument, og højreklik for at vælge "Behold kun tekst" for at få teksten.

Metode 2: Brug VBA-koder

Som du måske kan se, selv med den første metode, kan du ikke undgå at markere alle tekstbokse. Hvis nogle af jer bare hader sådan arbejdskraft, er vi her for at tilbyde jer måden at køre en makro på. Med metode 2 kan du udtrække alle tekster på én gang og få tekstboksene slettet.

1. Først skal du trykke på "Alt+ F11" for at åbne VBA-editoren.
2. For det andet skal du klikke på "Normal" og derefter "Indsæt".
3. Vælg derefter “Modul” for at indsætte et nyt.
4. Dobbeltklik derefter på modulnavnet for at åbne redigeringsområdet.
5. Indsæt følgende koder og klik på "Kø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 hvad du sandsynligvis får:

Håndter ødelagte Word-filer

Word er tilbøjelig til at fejle og er derfor et hyppigt offer for korruption. Derfor skal du administrere dine dokumenter ordentligt for at beskytte dem mod skader. For når de først bliver ødelagt, vil du risikere at miste dem permanent. Så bliver du nødt til at bruge beskadiget Word-datagendannelsesværktøj.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder Excel fil fejlgendannelsesværktøj og pdf produkter til reparation af software. For mere information besøg www.datanumen.com