Ebben a cikkben 2 gyorsan és egyszerűen használható módszert szeretnénk bemutatni a szövegek kinyerésére a Word-dokumentum szövegdobozaiból.
Időnként kaphatunk egy Word-fájlt, amely nagyszámú szövegmezőt tartalmaz. Általában szövegek vagy relatív tartalmak lesznek ezekben a dobozokban. Ekkor előfordulhat, hogy a teljes szövegdoboz megtartása helyett csak a szövegeket kell bevinni.
Természetesen gyorsan lekérhető szavak egyetlen szövegmezőn belül, ha egyszerűen kimásolja a szöveget, és beilleszti valahova. Ha azonban több százról van szó, jobb, ha megtanulunk néhány gyors tippet a munka elvégzéséhez.
1. módszer: Használja a „Kiválasztó ablaktáblát”
- Először is, kattintson a „Kezdőlap” fülre.
- Ezután kattintson a „Kiválasztás” ikonra a „Szerkesztés” csoportban.
- Ezután a legördülő menüben válassza a „Kiválasztási ablaktáblát”.
- Most a képernyő jobb oldalán láthatja a panelen látható összes szövegmezőt.
- Nyomja meg a „Ctrl” billentyűt, és egyenként kattintson a szövegmezők nevére a panelen az összes kijelöléséhez.
- Ezután mozgassa a kurzort az egyik dobozsorra, majd kattintson a jobb gombbal.
- A listában kattintson a „Másolás” gombra. Ha már nincs szüksége ezekre a dobozokra, nyomja meg a „Törlés” gombot.
- Ezután kattintson a „Start” gombra a Windows menü megtekintéséhez.
- Válassza a „WordPad” lehetőséget, és nyissa meg.
- Ezután kattintson a „Beillesztés” gombra, hogy az összes szöveget megkapja a szövegmezőkből.
- Ezután jelölje ki az összes szöveget, és kattintson a jobb gombbal a „Másolás” kiválasztásához.
- Most nyisson meg egy új Word-dokumentumot, és kattintson a jobb gombbal a „Csak szöveg megtartása” lehetőség kiválasztásához, hogy megkapja a szöveget.
2. módszer: VBA kódok használata
Amint láthatja, még az első módszerrel sem kerülheti el az összes szövegmező kijelölését. Abban az esetben, ha néhányan utálják az ilyen munkavégzést, itt kínáljuk a makró futtatásának módját. A 2. módszerrel az összes szöveget egy lépésben kibonthatja, és törölheti a szövegdobozokat.
- Először nyomja meg az „Alt+F11” gombot a VBA-szerkesztő megnyitásához.
- Másodszor kattintson a „Normál”, majd a „Beszúrás” gombra.
- Ezután válassza a „Modul” lehetőséget egy új beillesztéséhez.
- Ezután kattintson duplán a modul nevére a szerkesztési terület megnyitásához.
- Illessze be a következő kódokat, és kattintson a „Futtatás” gombra:
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
Íme, amit valószínűleg kap:
Megbirkózni a tönkrement Word fájlokkal
A Word hajlamos a hibákra, ezért gyakori áldozata a korrupciónak. Ezért megfelelően kell kezelnie a dokumentumokat, hogy megóvja őket a sérülésektől. Ha egyszer megsérülnek, azzal a kockázattal kell szembenézned, hogy végleg elveszíted őket. Ezután használnia kell a sérült Word adat-helyreállító eszköz.
Szerző Bevezetés:
Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve Excel fájl hibahelyreállító eszköz és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com