Note: The other languages of the website are Google-translated. Back to English
English English

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


š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.

Hot
Úžasný! Používejte efektivní karty v aplikaci Word (Office), jako jsou Chrome, Firefox a New Internet Explorer!

Dozvědět se 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.



Doporučené nástroje produktivity slov

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetříte 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
Komentáře (11)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Myslím, že řádky 4 a 5 výše uvedeného kódu VBA by měly být zkombinovány: tbl.ConvertToText Separator:=wdSeparateByTabs
Tento komentář byl moderátorem webu minimalizován
Děkuji Simone! Funguje to.
Tento komentář byl moderátorem webu minimalizován
Kód VBA nefunguje.. když stisknu F5 pro spuštění, zobrazí se "Chyba kompilace; chyba syntaxe;"
Tento komentář byl moderátorem webu minimalizován
Zde je kód, který funguje: Sub AllTablestoText() ' ' Makro AllTablestoText ' Makro vytvořené Jarosławem Michalakem ' Pro každou tabulku aTable v ActiveDocument.Tables aTable.ConvertToText wdSeparateByCommas, True Next aTable End Sub Zdroj: http://howto.wikispaces.umb.edu/Convert+all+tables+to+text
Tento komentář byl moderátorem webu minimalizován
Správný kód je následující: Sub TablesToText() Dim tbl As Table For Each tbl In ActiveDocument.Tables tbl.ConvertToText Separator = wdSeparateByTabs Next tbl Set tbl = Nothing End Sub
Tento komentář byl moderátorem webu minimalizován
Děkuji. Funguje to!!
Tento komentář byl moderátorem webu minimalizován
Děkuji. Fungovalo to.
Tento komentář byl moderátorem webu minimalizován
prosím, dejte mi vědět "jaký je kód pro změnu pouze vybraných tabulek na text ve wordu?"
Tento komentář byl moderátorem webu minimalizován
děkuji, už to funguje
Tento komentář byl moderátorem webu minimalizován
Děkuji ti za to! to se cení!
Tento komentář byl moderátorem webu minimalizován
Po spuštění kódu VBA se MS Word změnil. Již nemám přístup k nástrojům VBA a písmo je větší. Co se ještě změnilo, nevím. Co teď dělám?
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění