跳到主要內容

如何在Word中將多個表轉換為文本?

如果文檔中有很多表,並且您想將它們轉換為文本,那麼如何快速完成呢? 本教程將向您展示一些技巧,可以快速將多個表轉換為Word中的文本。

一張一張地將表格轉換為文本

使用VBA將所有表轉換為文本

使用Kutools輕鬆將多個表轉換為文本

推薦的Word生產工具

Kutools for Word:整合人工智慧 🤖,超過 100 種進階功能可節省 50% 的文件處理時間。免費下載

Office Tab:在 Word(和其他 Office 工具)中引入類似瀏覽器的選項卡,簡化了多重文件導覽。免費下載


箭頭藍色右泡沫 一張一張地將表格轉換為文本

Office Word提供了將表轉換為常規文本的功能,但一次只能應用於一個表。

Office 標籤:為 Word、Excel、PowerPoint 帶來選項卡式介面...
ot字中間廣告100
立即增強您的工作流程。      閱讀更多       免費下載

步驟1:在要轉換的表格中選擇或放置光標;

步驟2:前往 佈局 標籤下的 表工具,然後點擊 轉換為文本 in 數據 組;

文檔表到文本 1

步驟3:選擇標記樣式以分隔表格單元格;

文檔表到文本 2

步驟4:點擊 OK Word將表轉換為文本;

步驟5:重複步驟1至步驟4,直到所有表都轉換完畢;


箭頭藍色右泡沫 使用VBA將所有表轉換為文本

VBA可以將所有文檔表轉換為文本。

步驟1:按“ALT-F11”以打開“ Microsoft Visual Basic for Application”窗口;

步驟2:點擊 模塊 插入 選項卡,將以下VBA代碼複製並粘貼到“模塊”窗口中;

步驟3:點擊 按鈕以應用VBA。

用於將所有表轉換為文本的VBA代碼:

子TablesToText()
如表所示
對於ActiveDocument.Tables中的每個tbl
tbl.ConvertToText
分隔符:= wdSeparateByTabs
下一個tbl
設置tbl =否
END SUB


箭頭藍色右泡沫 使用Kutools輕鬆將多個表轉換為文本

將多個表一張一張地轉換為文本是很費時的,並且VBA代碼始終提供一種將文檔中所有表分開的方法。 Kutools可以輕鬆地將所有表格從選擇或整個文檔轉換為普通文本。 並且它與Word使用相同的功能接口,為用戶提供了不同的方式來分隔表單元格。

Kutools for Word,一個方便的加載項,包括多組工具,可簡化您的工作並增強處理Word文檔的能力。 免費試用45天! 立即行動吧!!

點擊 庫工具 >>點擊 表到文字 in 枱燈

文檔表到文本 3

要轉換一個選擇或整個文檔的多個表格,請先選擇文檔或整個文檔的一部分,然後通過單擊Kutools >> Table to Table in Text來應用該實用程序,並在轉換為後為常規文本選擇定界符將表轉換為文本對話框。

欲了解更多信息,請訪問: 將多個表轉換為文本.


最佳辦公生產力工具

Kutools for Word - 透過 Over 提升您的文字體驗 100 顯著特點!

🤖 Kutools 人工智慧助手:用人工智慧改變你的寫作 - 生成內容  /  重寫文字  /  總結文件  /  查詢資料 基於文檔,全部在Word中

📘 文件掌握: 分頁  /  合併文件  /  以各種格式匯出選擇(PDF/TXT/DOC/HTML...)  /  批次轉換為PDF  /  將頁面匯出為圖像  /  一次列印多個文件...

內容編輯: 批量查找和替換 跨多個文件  /  調整所有圖片的大小  /  轉置表行和列  /  將表格轉換為文字...

🧹 輕鬆清潔: 移開 多餘的空間  /  分節符  /  所有標題  /  文本框  /  超鏈接  / 如需更多拆卸工具,請前往我們的 刪除組...

創意插入: 插入 千位分隔符  /  複選框  /  單選按鈕  /  QR Code  /  條碼  /  對角線表  /  公式標題  /  圖片說明  /  表格標題  /  多張圖片  / 發現更多 插入組...

🔍 精準選擇:精確定位 特定頁面  /    /  形狀  /  標題段落  / 增強導航功能 更多 選擇功能...

星級增強: 快速導航至任何位置  /  自動插入重複文字  /  在文檔視窗之間無縫切換  /  11 轉換工具...

???? 想嘗試這些功能嗎? Kutools for Word 提供了 60天免費試用,沒有任何限制! 🚀
 
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