批量将word文档中表格转为excel教程

可以使用Microsoft Word的宏功能（VBA）来自动化任务。

1.打开word，alt+F11，得到如下界面：

2.点击->运行->运行宏，得到如下界面：

3.宏名称随便指定，->创建，进入如下界面：

4.只需将下面代码的第十五行，更改为自己word文档的文件夹即可，路径后要有一个斜杠，切记：

Sub WordtoExcel()

Dim dirpath As String

Dim filename As String

Dim WordApp As Object

Dim ExcelApp As Object

Dim WordDoc As Object

Dim ExcelWorkbook As Object

Dim ExcelSheet As Object

' 设置Word和Excel应用程序对象

Set WordApp = CreateObject("Word.Application")

Set ExcelApp = CreateObject("Excel.Application")

' 设置文件夹路径，确保路径末尾有反斜杠（\）

dirpath = "C:\Users\admin\Desktop\word\" ' 更改为您的Word文件夹路径

' 获取文件夹中的第一个Word文档

filename = Dir(dirpath & "*.docx")

' 循环处理每个Word文档

Do While filename <> ""

' 打开Word文档

Set WordDoc = WordApp.Documents.Open(dirpath & filename)

' 创建新的Excel工作簿

Set ExcelWorkbook = ExcelApp.Workbooks.Add

Set ExcelSheet = ExcelWorkbook.Sheets(1) ' 使用第一个工作表

' 将Word表格复制到Excel工作表

WordDoc.Tables(1).Range.Copy

ExcelSheet.Cells(1, 1).Select

ExcelSheet.Paste

' 关闭Word文档

WordDoc.Close

Set WordDoc = Nothing

' 保存Excel工作簿为单独的文件

ExcelWorkbook.SaveAs dirpath & Replace(filename, ".docx", ".xlsx") ' 更改保存路径和文件名

' 关闭Excel工作簿和应用程序

ExcelWorkbook.Close

Set ExcelWorkbook = Nothing

' 继续下一个文件

filename = Dir

Loop

' 关闭Word和Excel应用程序

WordApp.Quit

' 释放对象引用

Set WordApp = Nothing

' 显示Excel应用程序

ExcelApp.Visible = True

MsgBox "表格已复制到独立的Excel文件！", vbInformation

End Sub

5.将改好后的内容复制到步骤3中的文本框中，得到如下界面：

6.点击->运行->运行子过程/用户窗体，即可批量完成指定文件下所有word文档转为excel的操作。