pip install Spire.Doc
pip install Spire.XLS

from spire.doc import *
from spire.doc.common import *
from spire.xls import *
from spire.xls.common import *
import os

# 創(chuàng)建 Word 文檔對象并加載文件
document = Document()
document.LoadFromFile("E:/input/項目進度.docx")

# 創(chuàng)建 Excel 工作簿并清空默認工作表
workbook = Workbook()
workbook.Worksheets.Clear()

sheet_index = 0
for s in range(document.Sections.Count):
    section = document.Sections.get_Item(s)
    tables = section.Tables

    for t in range(tables.Count):
        table = tables.get_Item(t)
        # 動態(tài)創(chuàng)建工作表并遞增索引
        sheet = workbook.Worksheets.Add(f"Table_{sheet_index + 1}")
        # ... (后續(xù)數(shù)據(jù)提取)
        sheet_index += 1

# 遍歷行與列
for r in range(table.Rows.Count):
    row = table.Rows.get_Item(r)
    for c in range(row.Cells.Count):
        cell = row.Cells.get_Item(c)
        
        cell_text = ""
        for p in range(cell.Paragraphs.Count):
            paragraph = cell.Paragraphs.get_Item(p)
            cell_text += paragraph.Text.strip() + "\n"

        # 寫入 Excel 坐標并設(shè)置換行
        sheet.Range[r + 1, c + 1].Text = cell_text.strip()
        sheet.Range[r + 1, c + 1].Style.WrapText = True

from spire.doc import *
from spire.doc.common import *
from spire.xls import *
from spire.xls.common import *
import os

# 創(chuàng)建 Word 文檔對象并加載文件
document = Document()
document.LoadFromFile("/input/項目進度.docx")

# 創(chuàng)建 Excel 工作簿并刪除默認工作表
workbook = Workbook()
workbook.Worksheets.Clear()

# 遍歷 Word 文檔中的所有節(jié)
sheet_index = 0

for s in range(document.Sections.Count):
    section = document.Sections.get_Item(s)

    # 獲取當前節(jié)中的所有表格
    tables = section.Tables

    for t in range(tables.Count):

        # 獲取當前表格
        table = tables.get_Item(t)
        # 新建工作表
        sheet = workbook.Worksheets.Add(f"Table_{sheet_index + 1}")

        # 遍歷表格行
        for r in range(table.Rows.Count):
            row = table.Rows.get_Item(r)

            # 遍歷單元格
            for c in range(row.Cells.Count):
                cell = row.Cells.get_Item(c)

                # 提取單元格中的文本
                cell_text = ""
                for p in range(cell.Paragraphs.Count):
                    paragraph = cell.Paragraphs.get_Item(p)
                    cell_text += paragraph.Text.strip() + "\n"

                # 去除末尾換行
                cell_text = cell_text.strip()

                # 寫入 Excel 單元格
                sheet.Range[r + 1, c + 1].Text = cell_text
                # 設(shè)置自動換行
                sheet.Range[r + 1, c + 1].Style.WrapText = True

        # 自動調(diào)整列寬行高
        sheet.AllocatedRange.AutoFitColumns()
        sheet.AllocatedRange.AutoFitRows()
        sheet_index += 1

# 保存為 Excel 文件
workbook.SaveToFile("/output/word表格.xlsx", ExcelVersion.Version2016)
document.Close()
workbook.Dispose()