Přejít k hlavnímu obsahu

Jak převést více tabulek na text v aplikaci Word?

Pokud je v dokumentu mnoho tabulek a chcete je převést na text, jak byste to mohli udělat rychle? Tento výukový program vám ukáže některé složité způsoby, jak rychle převést více tabulek na text v aplikaci Word.

Převádějte tabulky na text jednu po druhé

Převeďte všechny tabulky na text pomocí VBA

Snadno převádějte více tabulek na text pomocí Kutools

Doporučené nástroje produktivity pro Word

Kutools pro Word: Integrace AI 🤖, více než 100 pokročilých funkcí ušetří 50 % času při manipulaci s dokumenty.Stažení zdarma

Karta Office: Zavádí do aplikace Word (a další nástroje sady Office) karty podobné prohlížeči, což zjednodušuje navigaci ve více dokumentech.Stažení zdarma


šipka modrá pravá bublina Převádějte tabulky na text jednu po druhé

Office Word poskytuje funkci převodu tabulky na běžný text, ale lze ji použít pouze pro jednu tabulku najednou.

Karta Office: Přináší rozhraní s kartami do aplikací Word, Excel, PowerPoint...
střední slovo ad 100
Vylepšete svůj pracovní postup hned teď.      Více       Stažení zdarma

Krok 1: vyberte nebo umístěte kurzor do tabulky, kterou chcete převést;

Krok 2: přejděte na Nákres Karta pod Nástroje tabulky, a klepněte na tlačítko Převést na text in Data skupina;

doc-tabulky-na-text-1

Krok 3: Vyberte styl značky, pomocí kterého oddělte buňky tabulky;

doc-tabulky-na-text-2

Krok 4: klikněte OK a Word převede tabulku na text;

Krok 5: opakujte krok 1 až krok 4, dokud nebudou převedeny všechny tabulky;


šipka modrá pravá bublina Převeďte všechny tabulky na text pomocí VBA

VBA dokáže převést všechny tabulky dokumentu na text.

Krok 1: Stiskněte “Alt-F11”Pro otevření okna Microsoft Visual Basic for Application;

Krok 2: Klepněte na tlačítko Modul na Vložit karta, zkopírujte a vložte následující kód VBA do okna modulu;

Krok 3: Klepněte na tlačítko Běh tlačítko pro použití VBA.

Kód VBA pro převod všech tabulek na text:

Dílčí tabulkyToText ()
Dim tbl jako tabulka
Pro každou tbl v ActiveDocument.Tables
tbl.ConvertToText
Oddělovač: = wdSeparateByTabs
Další tbl
Nastavit tbl = nic
End Sub


šipka modrá pravá bublina Snadno převádějte více tabulek na text pomocí Kutools

Převést více tabulek na text jednu po druhé je časově náročné a kód VBA vždy poskytuje jeden způsob, jak oddělit všechny tabulky v dokumentu. Kutools může snadno převést všechny tabulky z výběru nebo celého dokumentu na běžný text. A používá stejné funkční rozhraní s Wordem, aby uživatelům poskytl různé způsoby oddělení buněk tabulky.

Kutools pro Word, praktický doplněk, obsahuje skupiny nástrojů, které vám usnadní práci a zvýší vaši schopnost zpracovávat textový dokument. Zkušební verze zdarma po dobu 45 dnů! Get It Now!

klikněte Kutools >> klik Tabulka na text in Tabulka skupina

doc-tabulky-na-text-3

Chcete-li převést více tabulek výběru nebo celého dokumentu, nejprve vyberte část dokumentu nebo celého dokumentu a poté použijte nástroj kliknutím na Kutools >> Tabulka na text v tabulce a po převedení na vyberte oddělovač pro běžný text v dialogovém okně Převést tabulku na text.

Pro více informací naleznete na adrese: převést více tabulek na text.


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah  /  Přepsat text  /  Shrnout dokumenty  /  Vyžádejte si informace na základě dokumentu, vše ve Wordu

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...)  /  Dávkový převod do PDF  /  Exportujte stránky jako obrázky  /  Tisk více souborů najednou...

Úprava obsahu: Dávkové hledání a nahrazení přes více souborů  /  Změnit velikost všech obrázků  /  Transponujte řádky a sloupce tabulky  /  Převést tabulku na text...

🧹 Čištění bez námahy: Smést pryč Extra prostory  /  Sekce přestávky  /  Všechny záhlaví  /  Textová pole  /  Odkazy  / Další nástroje pro odstraňování naleznete u nás Odstranit skupinu...

Kreativní vložky: Vložit Tisíc separátorů  /  Zaškrtávací políčka  /  Tlačítka rádia  /  QR kód  /  čárový kód  /  Tabulka diagonálních čar  /  Titulek rovnice  /  Titulek obrázku  /  Titulek tabulky  /  Více obrázků  / Objevte více v Vložit skupinu...

???? Přesné výběry: Přesně konkrétní stránky  /  Tabulky  /  Tvary  /  nadpisové odstavce  / Vylepšete navigaci pomocí vice Vyberte funkce...

Vylepšení hvězd: Navigujte rychle na libovolné místo  /  automatické vkládání opakujícího se textu  /  plynule přepínat mezi okny dokumentů  /  11 Konverzní nástroje...

???? Chcete si tyto funkce vyzkoušet? Kutools for Word nabízí a Denní zkušební doba 60, bez omezení! ????
Stažení zdarma     Více     Kup nyní
 
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
After running the VBA code, MS Word has changed. I no longer have access to VBA tools, and the font is larger. I don't know what else has changed yet. What do I do now?
This comment was minimized by the moderator on the site
Thank you for this! it is appreciated!
This comment was minimized by the moderator on the site
The correct code as follows: Sub TablesToText() Dim tbl As Table For Each tbl In ActiveDocument.Tables tbl.ConvertToText Separator = wdSeparateByTabs Next tbl Set tbl = Nothing End Sub
This comment was minimized by the moderator on the site
thank you, now it works
This comment was minimized by the moderator on the site
please kindly let me know "what is the code for change only selected tables to text in word?"
This comment was minimized by the moderator on the site
Thank you. It worked.
This comment was minimized by the moderator on the site
Thank you. It works!!
This comment was minimized by the moderator on the site
Here's a code that works: Sub AllTablestoText() ' ' AllTablestoText Macro ' Macro created by Jarosław Michalak ' For Each aTable In ActiveDocument.Tables aTable.ConvertToText wdSeparateByCommas, True Next aTable End Sub Source: http://howto.wikispaces.umb.edu/Convert+all+tables+to+text
This comment was minimized by the moderator on the site
The VBA code isn't working.. when I press F5 for execution, it says "Compile error; syntax error;"
This comment was minimized by the moderator on the site
I think lines 4 and 5 of the VBA code above should be combined: tbl.ConvertToText Separator:=wdSeparateByTabs
This comment was minimized by the moderator on the site
Thank you SImon! It works.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations