如何自动化删除PowerPoint表格中带删除线的文本？

针对你的需求，下面提供两种可落地的方案，适配你无VBA/Office自动化经验、已有Excel处理脚本的情况：

方案一：使用PyWin32直接操作PPT识别删除线格式 #

python-pptx确实无法读取文本的删除线格式，而**PyWin32（win32com.client）**可以调用Office原生COM接口，完整访问文本格式信息。以下是结合你提供的表格定位逻辑的实现代码：

import win32com.client as win32
from pathlib import Path

def remove_strikethrough_in_pptx_table(file_path):
    # 启动PPT后台进程
    ppt_app = win32.Dispatch("PowerPoint.Application")
    ppt_app.Visible = False  # 设为True可可视化操作过程
    prs = ppt_app.Presentations.Open(str(file_path))
    
    try:
        # 定位到第67张幻灯片（PPT索引从1开始，对应你代码里的i=66）
        slide = prs.Slides(67)
        for shape in slide.Shapes:
            # 判断是否为表格形状
            if shape.HasTable:
                table = shape.Table
                # 匹配目标表格（首单元格包含Test_Table_1）
                if "Test_Table_1" in table.Cell(1, 1).TextFrame.TextRange.Text:
                    # 遍历所有单元格
                    for row_idx in range(1, table.Rows.Count + 1):
                        for col_idx in range(1, table.Columns.Count + 1):
                            cell = table.Cell(row_idx, col_idx)
                            text_range = cell.TextFrame.TextRange
                            new_text = ""
                            # 遍历单元格内的每个文本片段（Run）
                            for run in text_range.Runs:
                                # 仅保留不带删除线的文本片段
                                if not run.Font.Strikethrough:
                                    new_text += run.Text
                            # 替换单元格文本为过滤后的内容
                            cell.TextFrame.TextRange.Text = new_text
        # 保存修改后的PPT
        prs.Save()
        print("处理完成，已保存修改")
    finally:
        # 关闭文件并退出应用
        prs.Close()
        ppt_app.Quit()

if __name__ == "__main__":
    pptx_path = Path("test.pptx")
    remove_strikethrough_in_pptx_table(pptx_path)

说明： #

• 运行前需安装依赖：pip install pywin32
• 若需要处理所有幻灯片的表格，可删除slide = prs.Slides(67)，改为遍历prs.Slides所有幻灯片
• 代码会自动过滤单元格内混有的删除线文本，保留正常格式内容

方案二：导出表格到Excel复用已有脚本 #

利用Office复制粘贴功能，将PPT表格导出到Excel（保留格式），再用你已有的删除线处理脚本完成清理，可选将处理后的表格导回PPT：

步骤1：导出PPT表格到Excel #

import win32com.client as win32
from pathlib import Path

def export_pptx_table_to_excel(pptx_path, excel_path):
    ppt_app = win32.Dispatch("PowerPoint.Application")
    ppt_app.Visible = False
    prs = ppt_app.Presentations.Open(str(pptx_path))
    
    excel_app = win32.Dispatch("Excel.Application")
    excel_app.Visible = False
    wb = excel_app.Workbooks.Add()
    ws = wb.Worksheets(1)
    
    try:
        slide = prs.Slides(67)
        for shape in slide.Shapes:
            if shape.HasTable and "Test_Table_1" in shape.Table.Cell(1,1).TextFrame.TextRange.Text:
                # 复制PPT表格
                shape.Copy()
                # 粘贴到Excel并保留原格式
                ws.PasteSpecial(Format="Microsoft Office PowerPoint 对象", Link=False, DisplayAsIcon=False)
                break
        wb.SaveAs(str(excel_path))
        print("表格已导出到Excel")
    finally:
        prs.Close()
        ppt_app.Quit()
        wb.Close()
        excel_app.Quit()

if __name__ == "__main__":
    export_pptx_table_to_excel(Path("test.pptx"), Path("table_temp.xlsx"))

步骤2：运行现有Excel处理脚本 #

对导出的table_temp.xlsx执行你已有的删除线清理脚本，移除带删除线的文本。

步骤3（可选）：将处理后的表格导回PPT #

若需要替换原PPT中的表格，可参考步骤1的反向操作，将Excel中处理好的表格复制粘贴回PPT对应位置。

内容的提问来源于stack exchange，提问作者tgonzalez89