2 snabba metoder för att extrahera texter från textrutor i ditt Word-dokument

I den här artikeln vill vi visa dig 2 snabba och lättanvända metoder för att extrahera texter från textrutor i ditt Word-dokument.

Då och då kan vi få en Word-fil som innehåller ett stort antal textrutor. Vanligtvis kommer det att finnas texter eller relativt innehåll i dessa rutor. Då kan det finnas behov av att bara få in texterna istället för att behålla hela textrutan.

Visst är det snabbt att hämta ord i en enda textruta genom att helt enkelt kopiera ut texten och klistra in den någon annanstans. Men när det gäller hundratals av dem är det bättre att vi lär oss några snabba tips för att få jobbet gjort.

Metod 1: Använd "Markeringsfönstret"

1. Först och främst, klicka på fliken "Hem".
2. Klicka sedan på ikonen "Välj" i gruppen "Redigering".
3. Välj sedan "Valfönster" i rullgardinsmenyn.
4. Nu på höger sida av skärmen kan du se alla textrutor som är synliga i rutan.
5. Tryck på "Ctrl" och klicka på textrutornas namn på rutan en efter en för att välja dem alla.
6. Och flytta för att lägga markören på en av rutan och högerklicka.
7. Klicka på "Kopiera" i listalternativet. Om du nu inte behöver dessa rutor längre, tryck bara på "Radera".
8. Klicka sedan på "Start" för att visa Windows-menyn.
9. Välj "WordPad" och öppna den.
10. Klicka sedan på "Klistra in" för att få alla texter från textrutorna.
11. Välj sedan alla texter och högerklicka för att välja "Kopiera".
12. Öppna nu ett nytt Word-dokument och högerklicka för att välja "Behåll endast text" för att få texten.

Metod 2: Använd VBA-koder

Som du kanske ser, även med den första metoden, kan du inte undvika att markera alla textrutor. Om några av er bara hatar sådant arbete, här är vi för att erbjuda er sättet att köra ett makro. Med metod 2 kan du extrahera alla texter på en gång och få textrutorna raderade.

1. Tryck först på “Alt + F11” för att öppna VBA-redigeraren.
2. För det andra, klicka på "Normal" och sedan på "Infoga".
3. Välj sedan "Modul" för att infoga en ny.
4. Dubbelklicka sedan på modulnamnet för att öppna redigeringsområdet.
5. Klistra in följande koder och klicka 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

Här är vad du sannolikt kommer att få:

Hantera förstörda Word-filer

Word är benäget att göra fel och blir därför ofta offer för korruption. Därför måste du hantera dina dokument ordentligt för att skydda dem från skador. För när de blir korrupta, kommer du att möta risken att förlora dem permanent. Då måste du använda skadat Word-dataåterställningsverktyg.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive Verktyg för återställning av Excel-filfel och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com