V tomto článku vám chceme ukázat 2 rychlé a snadno použitelné metody pro extrahování textů z textových polí v dokumentu Word.
Čas od času můžeme získat soubor Word obsahující velké množství textových polí. Obvykle uvnitř těchto polí budou texty nebo relativní obsah. Pak může být potřeba dostat pouze texty dovnitř, místo aby zůstalo celé textové pole.
Určitě je rychlé načíst slova do jednoho textového pole jednoduše tak, že text zkopírujete a vložíte někam jinam. Pokud však jde o stovky z nich, měli bychom se naučit několik rychlých tipů, jak tuto práci dokončit.
Metoda 1: Použijte podokno výběru
- Nejprve klikněte na kartu „Domů“.
- Poté klikněte na ikonu „Vybrat“ ve skupině „Úpravy“.
- Dále v rozevírací nabídce zvolte „Podokno výběru“.
- Nyní na pravé straně obrazovky vidíte všechna textová pole viditelná v podokně.
- Stiskněte klávesu „Ctrl“ a kliknutím na názvy těchto textových polí v podokně postupně vyberte všechny.
- A přesuňte kurzor na jeden z řádků pole a klikněte pravým tlačítkem.
- V seznamu vyberte možnost „Kopírovat“. Nyní, pokud tyto boxy již nebudete potřebovat, jednoduše stiskněte „Odstranit“.
- Dále klikněte na „Start“ pro zobrazení nabídky Windows.
- Vyberte „WordPad“ a otevřete jej.
- Poté klikněte na „Vložit“, abyste získali všechny texty z textových polí.
- Dále vyberte všechny texty a kliknutím pravým tlačítkem vyberte „Kopírovat“.
- Nyní otevřete nový dokument aplikace Word a kliknutím pravým tlačítkem vyberte „Ponechat pouze text“, abyste text dostali.
Metoda 2: Použijte kódy VBA
Jak můžete vidět, ani při první metodě se nevyhnete výběru všech textových polí. V případě, že někteří z vás právě takovou práci nenávidí, nabízíme vám způsob, jak spustit makro. Pomocí metody 2 můžete extrahovat všechny texty najednou a nechat textová pole odstranit.
- Nejprve stisknutím kombinace kláves „Alt + F11“ otevřete editor VBA.
- Za druhé klikněte na „Normální“ a poté na „Vložit“.
- Poté zvolte „Modul“ a vložte nový.
- Poté poklepejte na název modulu a otevřete oblast úprav.
- Vložte následující kódy a klikněte na „Spustit“:
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
Zde je pravděpodobné, že získáte:
Vypořádejte se s rozbitými soubory Word
Word je náchylný k chybám, a proto je častou obětí korupce. Proto musíte své dokumenty řádně spravovat, abyste je ochránili před poškozením. Jakmile se jednou poškodí, budete čelit riziku trvalé ztráty. Pak budete muset použít poškozený nástroj pro obnovu dat Word.
Úvod autora:
Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Nástroj pro zotavení po chybě souboru Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com