Przejdź do głównej zawartości

Jak przekonwertować wiele tabel na tekst w programie Word?

Autorka: Amanda Li Ostatnia modyfikacja: 2012-09-18

Jeśli w dokumencie jest wiele tabel i chcesz je przekonwertować na tekst, jak możesz to szybko zrobić? Ten samouczek pokaże Ci kilka trudnych sposobów szybkiego przekonwertowania wielu tabel na tekst w programie Word.

Konwertuj tabele na tekst pojedynczo

Konwertuj wszystkie tabele na tekst przy użyciu języka VBA

Z łatwością konwertuj wiele tabel na tekst za pomocą Kutools

Zalecane narzędzia zwiększające produktywność dla programu Word

Kutools dla Worda: Integracja sztucznej inteligencji 🤖ponad 100 zaawansowanych funkcji pozwala zaoszczędzić 50% czasu obsługi dokumentów.Darmowe pobieranie

Karta Office: wprowadza do programu Word (i innych narzędzi pakietu Office) karty przypominające przeglądarkę, upraszczając nawigację w wielu dokumentach.Darmowe pobieranie


strzałka niebieski prawy bąbelek Konwertuj tabele na tekst pojedynczo

Office Word udostępnia funkcję konwersji tabeli na zwykły tekst, ale można ją zastosować tylko do jednej tabeli naraz.

Karta Office: zapewnia interfejsy z zakładkami w programach Word, Excel, PowerPoint...
ot word środkowa reklama 100
Usprawnij teraz swój przepływ pracy.      Czytaj więcej       Darmowe pobieranie

Krok 1: wybierz lub umieść kursor w tabeli, którą chcesz przekonwertować;

Krok 2: przejdź do układ Zakładka pod Narzędzia tabeli kliknij Konwertuj na tekst in Dane Grupa;

dokumenty-tabel-na-tekst-1

Krok 3: wybierz styl oznaczenia, którym chcesz oddzielać komórki tabeli;

dokumenty-tabel-na-tekst-2

Krok 4: kliknij OK a Word skonwertuje tabelę na tekst;

Krok 5: powtórz kroki od 1 do 4, aż wszystkie tabele zostaną przekonwertowane;


strzałka niebieski prawy bąbelek Konwertuj wszystkie tabele na tekst przy użyciu języka VBA

VBA może konwertować wszystkie tabele dokumentu na tekst.

Krok 1: naciśnij "Alt-F11”, Aby otworzyć okno Microsoft Visual Basic for Application;

Krok 2: Kliknij Moduł na wstawka tab, skopiuj i wklej następujący kod VBA do okna Module;

Krok 3: Kliknij run przycisk, aby zastosować VBA.

Kod VBA do konwersji wszystkich tabel na tekst:

Sub TablesToText ()
Dim tbl jako tabela
Dla każdej tabeli w ActiveDocument.Tables
tab.Konwertuj na tekst
Separator: = wdSeparateByTabs
Następny tbl
Ustaw tbl = nic
End Sub


strzałka niebieski prawy bąbelek Z łatwością konwertuj wiele tabel na tekst za pomocą Kutools

Konwertowanie wielu tabel na tekst jedna po drugiej jest czasochłonne, a kod VBA zawsze zapewnia jeden sposób oddzielenia wszystkich tabel w dokumencie. Kutools może łatwo przekonwertować wszystkie tabele z zaznaczenia lub całego dokumentu na zwykły tekst. I używa tego samego interfejsu funkcji, co Word, aby zapewnić użytkownikom różne sposoby oddzielania komórek tabeli.

Kutools dla Worda, poręczny dodatek, zawiera grupy narzędzi ułatwiających pracę i zwiększających możliwości przetwarzania dokumentów tekstowych. Bezpłatna wersja próbna przez 45 dni! Zdobądź To Teraz!

Kliknij Kutools >> kliknij Tabela na tekst in Stół grupa

dokumenty-tabel-na-tekst-3

Aby przekonwertować wiele tabel wyboru lub całego dokumentu, najpierw wybierz część dokumentu lub cały dokument, a następnie zastosuj narzędzie, klikając Kutools >> Tabela na tekst w tabeli i wybierz ogranicznik dla zwykłego tekstu po konwersji w okno dialogowe Konwertuj tabelę na tekst.

Aby uzyskać więcej informacji prosimy odwiedzić: przekonwertować wiele tabel na tekst.


Najlepsze narzędzia biurowe

Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!

🤖 Kutools Asystent AI: Zmień swoje pisanie dzięki AI - Generuj zawartość  /  Przepisz tekst  /  Podsumowanie dokumentów  /  Zapytaj o informacje na podstawie Dokumentu, wszystko w programie Word

📘 Znajomość dokumentów: Podziel strony  /  Scal dokumenty  /  Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/HTML...)  /  Wsadowa konwersja do formatu PDF  /  Eksportuj strony jako obrazy  /  Drukuj wiele plików jednocześnie...

Edycja treści: Znajdź i zamień partii w wielu plikach  /  Zmień rozmiar wszystkich zdjęć  /  Transponuj wiersze i kolumny tabeli  /  Konwertuj tabelę na tekst...

🧹 Łatwe czyszczenie: Wymień Dodatkowe przestrzenie  /  Podziały sekcji  /  Wszystkie nagłówki  /  Pola tekstowe  /  Hiperłącza  / Więcej narzędzi do usuwania znajdziesz na naszej stronie Usuń grupę...

Kreatywne wstawki: Wstawić Tysiące separatorów  /  Pola wyboru  /  Przyciski Radio  /  Kod QR  /  kod kreskowy  /  Tabela linii ukośnych  /  Podpis równania  /  Tytuł Zdjęcia  /  Podpis tabeli  /  Wiele zdjęć  / Odkryj więcej w Wstaw grupę...

🔍 Precyzyjne wybory: Punktowy konkretne strony  /  stoły  /  kształty  /  nagłówki akapitów  / Ulepsz nawigację za pomocą jeszcze Wybierz funkcje...

Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji  /  automatyczne wstawianie powtarzającego się tekstu  /  płynnie przełączaj się pomiędzy oknami dokumentów  /  11 Narzędzia konwersji...

???? Chcesz wypróbować te funkcje? Kutools dla Word oferuje Bezpłatna wersja próbna 60-day, bez ograniczeń! 🚀
 
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