兩種簡易方法將 Word 文檔內容轉換或匯入 Excel 工作表

有時您可能需要將 Word 文件轉換為 Excel 工作表，或將其中的資料匯入工作表。除了複製貼上之外，您知道還有更快捷的方法嗎？本教學將為您介紹兩種最簡單的處理方式。

• 方法 A：運用「另存新檔」與「從文字」功能，7 步驟輕鬆將 Word 轉換為 Excel
  此方法無法匯入或轉換 Word 中的圖表，且每次僅能處理一個檔案。
• 方法 B：使用 VBA 將 Word 轉換為 Excel（4 個步驟）
  可將 Word 中的所有資料完整匯入 Excel，但圖表可能會重疊。
• 相關操作：批次轉換 Excel 到 PDF 檔案
  批次將資料夾中的 Excel 文件轉換為獨立的 Pdf 文件
• 其他與檔案轉換相關的操作（文章）
  將 Excel 表格轉換為 PDF  批次匯入 csv/txt/xml 檔案至 Excel等等

若要將 Word 文件轉換為 Excel 工作表，可結合使用 Word 的「另存新檔」功能與 Excel 的「從文字」功能。

1. 開啟您要轉換為 Excel 工作表的 Word 文件，點選檔案 > 另存新檔指令，再點選瀏覽以開啟另存新檔對話方塊，選擇儲存位置，並在指定保存格式下拉式選單中選取純文字。

2. 按一下儲存，將 Word 文件另存為新的純文字檔，系統隨即會彈出檔案轉換對話方塊，只需按一下確定即可關閉對話方塊。

3. 接著，啟用您要匯入 Word 文件資料的 Excel 工作表，按一下資料 > 從文字，並在匯入純文字對話方塊中，選取您要匯入的純文字檔案。

4. 勾選分隔符號選項，再點擊下一步。

5. 在精靈的第 2 步中，勾選您要用來分割資料的分隔符號，然後按一下下一步。

6. 在精靈的最後一步，您可以指定資料格式；若無需變更格式，請勾選一般選項。

7. 按一下完成後，將彈出匯入資料對話方塊。您可以選擇目前工作表中的任一儲存格來放置匯入的文字資料，或勾選新工作表選項，將資料匯入至全新工作表。設定完成後，按一下確定。

此時，Word 文件內容已成功匯入至 Excel 工作表。

注意：

若您希望將 Word 文件中以分隔符號區隔的資料轉換為 Excel 表格（如下方截圖所示），此方法將是理想選擇；但若您想將包含圖形在內的所有 Word 文件內容完整匯入 Excel 工作表，請前往 方法 B。

---

一次快速將多個 XLSX 檔案轉換為 XLS 或 PDF 檔案

在許多情況下，您可能需要在 XLSX 與 XLS 格式之間相互轉換，或將活頁簿轉為 PDF 檔案。然而，在 Excel 中每次僅能處理一個活頁簿。您是否曾希望一次轉換多個活頁簿？透過本工具，即可快速將多個活頁簿一鍵轉換為 PDF／97-2003 活頁簿／2007 或更高版本的活頁簿，並自動儲存至指定資料夾，同時還會產生完整的轉換報告！立即點擊，免費試用完整功能 30 天！批量轉換

Kutools for Excel：內含超過 300 項實用 Excel 增益集，30 天內免費無限制試用。

若您希望將 Word 文件中的所有資料轉換並匯入 Excel，可透過 VBA 程式碼輕鬆實現。

1. 按下 Alt + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

2. 按一下插入> 模組，建立新的模組指令碼，並將下方程式碼複製貼上至該指令碼中。

VBA 程式碼：將 Word 匯入 Excel

  Sub ImportWord()
'UpdatebyExtendoffice20190530

Dim xObjDoc As Object

Dim xWdApp As Object

Dim xWdName As Variant

Dim xWb As Workbook

Dim xWs As Worksheet

Dim xName As String

Dim xPC, xRPP

Application.ScreenUpdating = False

Application.DisplayAlerts = False

xWdName = Application.GetOpenFilename("Word file(*.doc;*.docx) ,*.doc;*.docx", , "Kutools - Please select")

If xWdName = False Then Exit Sub

Application.ScreenUpdating = False

Set xWb = Application.ActiveWorkbook

Set xWs = xWb.Worksheets.Add

Set xWdApp = CreateObject("Word.Application")

xWdApp.ScreenUpdating = False

xWdApp.DisplayAlerts = False

Set xObjDoc = xWdApp.Documents.Open(Filename:=xWdName, ReadOnly:=True)

xObjDoc.Activate

xPC = xObjDoc.Paragraphs.Count

Set xRPP = xObjDoc.Range(Start:=xObjDoc.Paragraphs(1).Range.Start, End:=xObjDoc.Paragraphs(xPC).Range.End)

xRPP.Select

On Error Resume Next

xWdApp.Selection.Copy

xName = xObjDoc.Name

xName = Replace(xName, ":", "_")

xName = Replace(xName, "\", "_")

xName = Replace(xName, "/", "_")

xName = Replace(xName, "?", "_")

xName = Replace(xName, "*", "_")

xName = Replace(xName, "[", "_")

xName = Replace(xName, "]", "_")

If Len(xName) > 31 Then

    xName = Left(xName, 31)

End If

xWs.Name = xName

xWs.Range("A1").Select

xWs.Paste

xObjDoc.Close

Set xObjDoc = Nothing

xWdApp.DisplayAlerts = True

xWdApp.ScreenUpdating = True

xWdApp.Quit (wdDoNotSaveChanges)

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

3. 按下 F5 鍵執行程式碼後，系統會彈出 Kutools – 請選擇對話方塊，供您選取要匯入的 Word 文件（每次僅能匯入一個文件）。

4. 按一下開啟，所選的 Word 文件便會以新工作表的形式匯入。請參閱截圖：
提示：新工作表將自動以匯入的 Word 檔案名稱命名。

若您希望將 Excel 工作表轉換為其他文件類型（例如 PDF 文件），本節將介紹一款進階工具——批量轉換，協助您輕鬆批次將指定資料夾中的 Excel 工作表轉換為獨立的 PDF 文件！

在使用此工具前，請先花幾分鐘 免費安裝 Kutools for Excel。

1. 按一下 KUTOOLS PLUS > 活頁簿 > 批量轉換。

2. 在批量轉換對話方塊中，

1. 在類型下拉列表中，依需求選擇所需的轉換操作，例如 Excel 到 PDF；
2. 點擊，選取您要轉換的附加檔案或資料夾。
3. 請選擇一個目標位置，用來儲存轉換後的檔案。

3. 按一下確定，系統將立即建立一份新工作簿供您查看轉換結果，同時檔案也已完成轉換。

提示：

透過批量轉換工具，您還可批次轉換 Excel 97-2003 與 Excel 2007 或更高版本 之間的檔案。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行   ｜  產生程式碼｜  建立自訂公式  ｜  分析資料並產生圖表｜  呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值   ｜  刪除空白行   ｜  合併列或儲存格而不遺失資料   ｜  不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup  ｜  多重數值 VLookup  ｜   跨多個工作表 VLookup   ｜   模糊查找……
	高級下拉列表：快速建立下拉式清單   ｜  相依式下拉式清單   ｜  多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦   ｜  設計視圖   ｜增強編輯欄   ｜ 工作簿與工作表管理員   ｜  資源庫（自動文字）｜  日期提取   ｜  合併工作表  ｜  加密／解密儲存格   ｜ 依清單傳送電子郵件   ｜  超級篩選   ｜   特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜   50+ 圖表 類型（甘特圖，……）｜   40+ 實用公式（基於生日計算年齡，……）｜   19 插入工具（插入二維碼，從路徑插入圖片，……）｜   12 轉換工具（金額轉大寫，匯率轉換，……）｜   7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多

在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言！

運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……

Kutools for Excel 詳細資訊……免費下載……

---

Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！

• 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
• 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
• 每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！

Office Tab 詳細資訊……免費下載……

---

所有 Kutools 增益集，一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！

• 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
• 一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
• 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
• 30 天完整功能試用— 無需註冊，無需信用卡
• 超值之選— 比單獨購買各增益集更省費用

Kutools for Office 詳細資訊……免費下載……