from spire.presentation import *
from spire.presentation.common import *

# 創(chuàng)建一個(gè)Presentation實(shí)例
presentation = Presentation()

# 加載PowerPoint文件
presentation.LoadFromFile("示例.pptx")

tables = []
# 遍歷所有的幻燈片
for slide in presentation.Slides:
    # 遍歷所有的形狀
    for shape in slide.Shapes:
        # 檢查形狀是否為表格
        if isinstance(shape, ITable):
            tableData = ""
            # 遍歷所有的行
            for row in shape.TableRows:
                rowData = ""
                # 遍歷行中的所有單元格
                for i in range(0, row.Count):
                    # 獲取單元格的值
                    cellValue = row[i].TextFrame.Text
                    rowData += (cellValue + "\t" if i < row.Count - 1 else cellValue)
                tableData += (rowData + "\n")
            tables.append(tableData)

# 將表格寫入文本文件
for idx, table in enumerate(tables, start=1):
    fileName = f"output/Tables/Table-{idx}.txt"
    with open(fileName, "w") as f:
        f.write(table)

presentation.Dispose()

from spire.presentation import *
from spire.presentation.common import *
from spire.xls import *
from spire.xls.common import *

# 創(chuàng)建一個(gè)Presentation實(shí)例
presentation = Presentation()

# 加載PowerPoint文件
presentation.LoadFromFile("示例.pptx")

# 創(chuàng)建一個(gè)Excel文件并清除默認(rèn)工作表
workbook = Workbook()
workbook.Worksheets.Clear()

tables = []
# 遍歷所有的幻燈片
for slide in presentation.Slides:
    # 遍歷所有的形狀
    for shape in slide.Shapes:
        # 檢查形狀是否為表格
        if isinstance(shape, ITable):
            tables.append(shape)

# 遍歷所有的表格
for t in range(len(ttables)):
    table = tables[t]
    sheet = workbook.Worksheets.Add(f"Sheet-{t+1}")
    for i in range(0, table.TableRows.Count):
        row = table.TableRows[i]
        for j in range(0, row.Count):
            sheet.Range[i + 1, j + 1].Value = row[j].TextFrame.Text
    # 自動(dòng)調(diào)整行和列的大小
    sheet.AllocatedRange.Style.Font.FontName = "HarmonyOS Sans SC"
    sheet.AllocatedRange.Style.Font.Size = 12.0
    sheet.AllocatedRange.AutoFitColumns()
    sheet.AllocatedRange.AutoFitRows()

# 保存Excel文件
workbook.SaveToFile("output/PresentationTables.xlsx", FileFormat.Version2016)

presentation.Dispose()
workbook.Dispose()