Ugrás a tartalomra

Hogyan lehet több táblázatot szöveggé konvertálni a Wordben?

Ha sok táblázat van a dokumentumban, és szöveggé kívánja konvertálni őket, hogyan lehetne ezt gyorsan elvégezni? Ez az oktatóanyag néhány trükkös módszert mutat be, amellyel gyorsan több táblázatot alakíthat szöveggé a Word-ben.

A táblákat konvertálja egyesével szöveggé

Konvertálja az összes táblázatot szöveggé a VBA használatával

Könnyen konvertálhat több táblázatot szöveggé a Kutools segítségével

Ajánlott produktivitási eszközök a Wordhez

Kutools for Word: AI integrálása 🤖, több mint 100 speciális funkcióval a dokumentumkezelési idő 50%-át takaríthatja meg.ingyenes letöltés

Iroda fül: Bevezeti a böngészőszerű lapokat a Wordbe (és más Office-eszközökbe), leegyszerűsítve a többdokumentumban történő navigálást.ingyenes letöltés


nyíl kék jobb buborék A táblákat konvertálja egyesével szöveggé

Az Office Word biztosítja a tábla normál szöveggé alakításának funkcióját, de egyszerre csak egy táblára vonatkozhat.

Iroda lap: füles felületeket hoz a Word, Excel, PowerPoint...
ot szó középső hirdetése 100
Javítsa munkafolyamatát most.      KATT ide       ingyenes letöltés

1. lépés: jelölje ki vagy helyezze a kurzort az átalakítani kívánt táblázatba;

2. lépés: menjen a elrendezés fül alatt táblázat Eszközök, és kattintson a gombra Konvertálás szöveggé in dátum csoport;

doc-table-to-text-1

3. lépés: válassza ki a jelölési stílust, amellyel elválasztja a táblázat celláit;

doc-table-to-text-2

4. lépés: kattintson OK és a Word konvertálja a táblázatot szöveggé;

5. lépés: ismételje meg az 1. és 4. lépést, amíg az összes táblát átalakítja


nyíl kék jobb buborék Konvertálja az összes táblázatot szöveggé a VBA használatával

A VBA az összes dokumentumtáblát szöveggé alakíthatja.

1. lépés: Nyomja meg aAlt-F11”A Microsoft Visual Basic for Application ablak megnyitásához;

2 lépés: Kattintson a gombra Modulok a betétlap fülre másolja és illessze be a következő VBA kódot a Modul ablakba;

3 lépés: Kattintson a gombra futás gombra a VBA alkalmazásához.

Az összes tábla szöveggé konvertálásához szükséges VBA-kód:

AltáblákToText ()
Dim tbl táblázatként
Minden tbl-re az ActiveDocument-ben
tbl.ConvertToText
Elválasztó: = wdSeparateByTabs
Következő tbl
Set tbl = Semmi
End Sub


nyíl kék jobb buborék Könnyen konvertálhat több táblázatot szöveggé a Kutools segítségével

Időigényes több táblázatot egyesével szöveggé konvertálni, és a VBA-kód mindig az egyetlen módot kínálja az összes tábla elválasztására a dokumentumban. A Kutools könnyen konvertálhatja az összes táblázatot egy kijelölt vagy teljes dokumentumból normál szöveggé. És ugyanazt a függvényfelületet használja a Word-szel, hogy a felhasználók különböző módon biztosítsák a táblázat celláinak elválasztását.

Kutools for Word, egy praktikus kiegészítő eszközcsoportokat tartalmaz, amelyek megkönnyítik a munkát és javítják a Word-dokumentum feldolgozásának képességét. Ingyenes próba 45 napig! Szerezd meg most!

Kattints Kutools >> kattintson Táblázat szövegre in Táblázat csoport

doc-table-to-text-3

A kijelölés vagy az egész dokumentum több táblázatának konvertálásához először válassza ki a dokumentum vagy egy dokumentum egy részét, majd alkalmazza a segédprogramot a Kutools >> Táblázat szövegre való kattintással a táblázatban, és az átalakítás után válassza ki a szokásos szöveg elválasztóját a Táblázat konvertálása szöveggé párbeszédpanelt.

További információért kérjük, látogasson el: konvertáljon több táblázatot szöveggé.


A legjobb irodai hatékonyságnövelő eszközök

Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!

🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása  /  Szöveg átírása  /  Összefoglalja a dokumentumokat  /  Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül

📘 Dokumentummesterség: Felosztott oldalak  /  Dokumentumok egyesítése  /  Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...)  /  Kötegelt konvertálás PDF-be  /  Oldalak exportálása képként  /  Nyomtasson több fájlt egyszerre...

Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között  /  Minden kép átméretezése  /  Transzponálja a táblázat sorait és oszlopait  /  Táblázat konvertálása szöveggé...

🧹 Könnyed tisztítás: Söpörj el Extra helyek  /  Szakaszszünetek  /  Minden fejléc  /  Szövegdobozok  /  Hiperhivatkozások  / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...

Kreatív betétek: Beszúrás Ezer elválasztó  /  Jelölőnégyzetek  /  Rádió gombok  /  QR-kód  /  Vonalkód  /  Átlós vonal táblázat  /  Egyenletfelirat  /  Képfelirat  /  Táblázat felirata  /  Több kép  / Fedezzen fel többet a Csoport beszúrása...

???? Precíziós kiválasztás: Pontosan konkrét oldalak  /  asztalok  /  formák  /  címsor bekezdései  / A navigáció javítása a következővel: több Jelölje ki a funkciókat...

Star Enhancements: Gyorsan navigáljon bármely helyre  /  ismétlődő szöveg automatikus beszúrása  /  zökkenőmentesen válthat a dokumentumablakok között  /  11 Konverziós eszközök...

???? Ki szeretné próbálni ezeket a funkciókat? A Kutools for Word kínál a 60 napos ingyenes próba, korlátozások nélkül! 🚀
 
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