In dit artikel willen we u 2 snelle en gemakkelijk te gebruiken methoden laten zien om teksten uit tekstvakken in uw Word-document te extraheren.
Van tijd tot tijd kunnen we een Word-bestand krijgen met een groot aantal tekstvakken. Gewoonlijk zullen er teksten of relatieve inhoud in die vakken staan. Dan kan het nodig zijn om alleen de teksten binnen te halen in plaats van het hele tekstvak te bewaren.
Zeker, het is snel om woorden in één tekstvak op te halen door simpelweg de tekst te kopiëren en ergens anders te plakken. Als het echter om honderden gaat, kunnen we maar beter enkele snelle tips leren om de klus te klaren.
Methode 1: gebruik het "Selectievenster"
- Klik allereerst op het tabblad "Home".
- Klik vervolgens op het pictogram "Selecteren" in de groep "Bewerken".
- Kies vervolgens in het vervolgkeuzemenu "Selectievenster".
- Nu kunt u aan de rechterkant van het scherm alle tekstvakken in het paneel zien.
- Druk op "Ctrl" en klik één voor één op de namen van de tekstvakken in het paneel om ze allemaal te selecteren.
- En beweeg om de cursor op een van de boxlijnen te leggen en klik met de rechtermuisknop.
- Klik bij de lijstoptie op “Kopiëren”. Als u deze vakken nu niet meer nodig heeft, drukt u gewoon op "Verwijderen".
- Klik vervolgens op "Start" om het Windows-menu te openen.
- Kies "WordPad" en open het.
- Klik vervolgens op "Plakken" om alle teksten uit de tekstvakken te halen.
- Selecteer vervolgens alle teksten en klik met de rechtermuisknop om "Kopiëren" te kiezen.
- Open nu een nieuw Word-document en klik met de rechtermuisknop om "Alleen tekst behouden" te kiezen om de tekst op te halen.
Methode 2: gebruik VBA-codes
Zoals u wellicht ziet, kunt u, zelfs met de eerste methode, niet voorkomen dat u alle tekstvakken moet selecteren. In het geval dat sommigen van jullie gewoon een hekel hebben aan dergelijk werk, dan bieden we je hier de manier om een macro uit te voeren. Met methode 2 kun je alle teksten in één keer extraheren en de tekstvakken laten verwijderen.
- Druk eerst op "Alt + F11" om de VBA-editor te openen.
- Klik vervolgens op "Normaal" en vervolgens op "Invoegen".
- Kies vervolgens "Module" om een nieuwe in te voegen.
- Dubbelklik vervolgens op de modulenaam om het bewerkingsgebied te openen.
- Plak de volgende codes en klik op "Uitvoeren":
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
Dit is wat u waarschijnlijk zult krijgen:
Omgaan met gesloopte Word-bestanden
Word is vatbaar voor fouten en daarom een frequent slachtoffer van corruptie. Daarom moet u uw documenten goed beheren om ze tegen beschadiging te beschermen. Als ze eenmaal beschadigd raken, loopt u het risico ze permanent te verliezen. Dan moet u de beschadigd Word-hulpprogramma voor gegevensherstel.
Auteur Introductie:
Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder Herstelprogramma voor Excel-bestandsfouten en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com