提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

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

如果文檔中有很多表格,並且想要將它們轉換為文本,那麼您如何快速完成它? 本教程將向您展示一些在Word中將多個表格快速轉換為文本的棘手方法。

將表格逐一轉換為文字

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

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


箭頭藍色右泡 將表格逐一轉換為文字

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

熱賣
驚人! 使用Word(Office)中的高效選項卡,如Chrome,Firefox和新Internet Explorer!

了解更多 免費下載

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

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

DOC-表到文本,1

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

DOC-表到文本,2

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

步驟5:重複步驟1,直到所有表都轉換為止,步驟4;


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

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

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

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

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

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

Sub TablesToText()
Dim tbl As Table
對於每個tbl在ActiveDocument.Tables中
tbl.ConvertToText
分離器:= wdSeparateByTabs
下一個tbl
設置tbl =無
END SUB


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

將多個表逐個轉換為文本是非常耗時的,而VBA代碼始終提供了一種將文檔中的所有表分開的方法。 Kutools可以很容易地將選擇或整個文檔中的所有表格轉換為常規文本。 它使用與Word相同的函數接口為用戶提供不同的方法來分離表格單元格。

Kutools for Word,一個方便的插件,包括工具組,以減輕您的工作,並提高您的能力,處理word文檔。 免費試用45天! 立即行動吧!

點擊 Kutools >>點擊 表格到文本 in

DOC-表到文本,3

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

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




推薦的Word生產力工具

Kutools For Word - 超過100 Word的高級功能,節省您的50%時間

  • 複雜和重複的操作可以在幾秒鐘內完成一次性處理。
  • 一次將多個圖像跨文件夾插入Word文檔。
  • 將多個文件夾合併並組合成一個具有所需訂單的文件。
  • 根據標題,分節符或其他標準將當前文檔拆分為單獨的文檔。
  • 在Doc和Docx,Docx和PDF之間轉換文件,用於常見轉換和選擇的工具集合等等......
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 · 6 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 · 5 years ago
    I think lines 4 and 5 of the VBA code above should be combined:

    tbl.ConvertToText Separator:=wdSeparateByTabs