Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako pretvoriti več tabel v besedilo v Wordu?

Če je v dokumentu veliko tabel in jih želite pretvoriti v besedilo, kako lahko to storite hitro? Ta vadnica vam bo pokazala nekaj zapletenih načinov, kako hitro pretvoriti več tabel v besedilo v Wordu.

Pretvorite tabele v besedilo enega za drugim

Pretvori vse tabele v besedilo z uporabo VBA

Preprosto pretvorite več tabel v besedilo s Kutools


puščica modra desno mehurček Pretvorite tabele v besedilo enega za drugim

Office Word ponuja funkcijo pretvorbe tabele v običajno besedilo, vendar se lahko uporablja samo za eno tabelo hkrati.

Hot
Neverjetno! Uporabite učinkovite kartice v programu Word (Office), kot so Chrome, Firefox in nov Internet Explorer!

Preberi več Brezplačen prenos

Korak 1: izberite ali postavite kazalko v tabelo, ki jo želite pretvoriti;

Korak 2: pojdi na postavitev tabulator pod orodja za tabelein kliknite Pretvori v besedilo in datum skupina;

doc-tabel-to-text-1

Korak 3: izberite slog oznake za ločevanje celic celic z;

doc-tabel-to-text-2

Korak 4: kliknite OK in Word bo spremenil tabelo v besedilo;

Korak 5: ponovite korak 1 na korak 4, dokler se vse tabele ne pretvorijo;


puščica modra desno mehurček Pretvori vse tabele v besedilo z uporabo VBA

VBA lahko pretvori vse tabele dokumenta v besedilo.

Korak 1: Pritisnite "Alt-F11", Da odprete okno Microsoft Visual Basic for Application;

Korak 2: kliknite Moduli o Vstavi kartico, kopirajte in prilepite naslednjo kodo VBA v okno Modul;

Korak 3: kliknite Run gumb za uporabo VBA.

VBA koda za pretvorbo vseh tabel v besedilo:

Sub TablesToText ()
Dim tbl Kot Tabela
Za vsak tbl v ActiveDocument.Tables
tbl.ConvertToText
Separator: = wdSeparateByTabs
Naslednji tbl
Nastavite tbl = nič
End Sub


puščica modra desno mehurček Preprosto pretvorite več tabel v besedilo s Kutools

Zamudno je pretvoriti več tabel v besedilo eno za drugo in kodo VBA vedno zagotavlja en način ločevanja vseh tabel v dokumentu. Kutools lahko enostavno pretvori vse tabele iz izbora ali celotnega dokumenta v običajno besedilo. Uporablja isti funkcijski vmesnik z Wordom, ki uporabnikom omogoča različne načine ločevanja celic celic.

Kutools for Word, priročen dodatek, vključuje skupine orodij za lažje delo in izboljšanje vaše sposobnosti obdelave besednega dokumenta. Prosti poskus za 45 dni! Get It Now!

klik Kutools >> kliknite Tabela v besedilo in Tabela skupina

doc-tabel-to-text-3

Če želite pretvoriti več tabel iz izbora ali celotnega dokumenta, najprej izberite del dokumenta ali celotnega dokumenta in nato uporabite pripomoček tako, da kliknete Kutools >> Table to Text in Table in izberete ločilo za običajno besedilo po pretvorbi v pogovorno okno Pretvori tabelo v besedilo.

Za več informacij obiščite: pretvoriti več tabel v besedilo.




Priporočena orodja za produktivnost Worda

Kutools for Word - več kot 100 napredne funkcije Za Microsoft Word shranite svoj čas 50%

  • Zapletene in ponavljajoče se operacije lahko opravite enkratno obdelavo v sekundah.
  • V dokument Worda vstavite več slik v mapah.
  • Združite in združite več datotek Word v mapah v eno z želenim naročilom.
  • Razdelite trenutni dokument v ločene dokumente v skladu z naslovom 1, odlomkom odseka ali drugimi merili.
  • Pretvorite datoteke med Doc in Docx, Docx in PDF, zbirko orodij za običajne konverzije in izbiro, in tako naprej...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Scott · 1 months ago
    Thank you for this! it is appreciated!
  • To post as a guest, your comment is unpublished.
    Suresh · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    cartography · 3 years ago
    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
  • To post as a guest, your comment is unpublished.
    Milind Gautam · 4 years ago
    The VBA code isn't working.. when I press F5 for execution, it says "Compile error; syntax error;"
  • To post as a guest, your comment is unpublished.
    Simon · 4 years ago
    I think lines 4 and 5 of the VBA code above should be combined:

    tbl.ConvertToText Separator:=wdSeparateByTabs