脚本怎样转换PPT格式

wen 实用脚本 2026-06-29 27

本文目录导读：

脚本怎样转换PPT格式

方案一：使用 Python + python-pptx + comtypes (最灵活，可批量)
方案二：VBA 宏 (Word/PowerPoint 内执行)
方案三：使用 LibreOffice 命令行 (跨平台，无需Office)
方案四：在线API转换 (适合无本地环境)
总结对比
快速建议

将PPT文件转换为其他格式（如PDF、图片、视频或Word等），可以通过多种脚本方式实现，以下是几种常见且高效的方案，包含Python脚本、VBA宏以及命令行工具。

使用 Python + `python-pptx` + `comtypes` (最灵活，可批量)

这是最推荐的纯脚本方案,可以精确控制每一页的转换。

PPT 转 PDF (推荐方案)

使用 comtypes 调用 PowerPoint 应用程序接口,转换质量最高。

import os
import comtypes.client
import sys
def ppt_to_pdf(ppt_path, pdf_path=None):
    """
    将PPT文件转换为PDF
    :param ppt_path: PPT文件路径 (支持 .ppt 和 .pptx)
    :param pdf_path: 输出PDF路径 (可选，默认同目录)
    :return: 输出文件路径
    """
    # 启动PowerPoint应用程序
    powerpoint = comtypes.client.CreateObject("PowerPoint.Application")
    powerpoint.Visible = True  # 设置True可看到PPT闪开过程，False为后台运行
    if pdf_path is None:
        pdf_path = os.path.splitext(ppt_path)[0] + ".pdf"
    try:
        # 打开PPT文件
        prs = powerpoint.Presentations.Open(os.path.abspath(ppt_path))
        # 另存为PDF (2 表示 ppSaveAsPDF)
        prs.SaveAs(os.path.abspath(pdf_path), 32)  # 32 是PDF格式常量
        prs.Close()
        print(f"转换成功: {os.path.basename(ppt_path)} -> {os.path.basename(pdf_path)}")
    except Exception as e:
        print(f"转换失败: {e}")
    finally:
        powerpoint.Quit()
    return pdf_path
# 使用示例
if __name__ == "__main__":
    ppt_to_pdf("C:/path/to/your/presentation.pptx")
    # 批量转换
    # ppt_files = ["file1.pptx", "file2.pptx"]
    # for f in ppt_files:
    #     ppt_to_pdf(f)

环境准备：

pip install comtypes
# 注意：该脚本需要安装Microsoft Office（PowerPoint）在Windows上运行

PPT 转 PNG/JPEG 图片 (每页一张)

同样基于 comtypes,可以导出每页为高清图片。

import os
import comtypes.client
def ppt_to_images(ppt_path, output_folder=None, fmt='png'):
    """
    转换PPT每一页为图片
    :param ppt_path: PPT路径
    :param output_folder: 输出文件夹路径
    :param fmt: 图片格式 'png' 或 'jpg'
    :return: 图片文件路径列表
    """
    if output_folder is None:
        output_folder = os.path.splitext(ppt_path)[0] + "_images"
    os.makedirs(output_folder, exist_ok=True)
    powerpoint = comtypes.client.CreateObject("PowerPoint.Application")
    powerpoint.Visible = False
    try:
        prs = powerpoint.Presentations.Open(os.path.abspath(ppt_path))
        image_paths = []
        for i, slide in enumerate(prs.Slides):
            # 导出为PNG (格式2) 或 JPEG (格式1)
            export_format = 2 if fmt == 'png' else 1
            image_path = os.path.join(output_folder, f"slide_{i+1:03d}.{fmt}")
            slide.Export(os.path.abspath(image_path), fmt, 1920, 1080)  # 可调整分辨率
            image_paths.append(image_path)
        prs.Close()
        print(f"成功导出 {len(image_paths)} 张图片到 {output_folder}")
        return image_paths
    except Exception as e:
        print(f"导出失败: {e}")
    finally:
        powerpoint.Quit()
# 使用示例
ppt_to_images("presentation.pptx", "output_images", "png")

PPT 转 Word 文档

将每页的文本提取到Word中（不包含图表/图片）。

from pptx import Presentation
from docx import Document
def ppt_to_word(ppt_path, word_path=None):
    prs = Presentation(ppt_path)
    doc = Document()
    for i, slide in enumerate(prs.slides, start=1):
        doc.add_heading(f'第 {i} 页', level=2)
        for shape in slide.shapes:
            if shape.has_text_frame:
                for para in shape.text_frame.paragraphs:
                    doc.add_paragraph(para.text)
        doc.add_page_break()  # 每页间分页
    if word_path is None:
        word_path = os.path.splitext(ppt_path)[0] + "_extracted.docx"
    doc.save(word_path)
    print(f"文字提取完成: {word_path}")
    return word_path
# 安装依赖
# pip install python-pptx python-docx

VBA 宏 (Word/PowerPoint 内执行)

如果你不想安装Python，可以直接在Office中运行VBA宏，这种方法一键快速,适合有Office环境的用户。

批量转换PPT为PDF（VBA宏）

在PPT中按 Alt + F11 打开VBA编辑器。
菜单：插入 -> 模块。
粘贴以下代码：

Sub BatchPPTtoPDF()
    Dim MyFile As String
    Dim FilePath As String
    ' 指定PPT所在文件夹
    FilePath = "C:\YourFolderPath\"  ' 修改为你的文件夹路径
    MyFile = Dir(FilePath & "*.pptx")
    Do While MyFile <> ""
        ' 打开PPT文件
        Set pptApp = CreateObject("PowerPoint.Application")
        pptApp.Visible = msoFalse
        Set pptPres = pptApp.Presentations.Open(FilePath & MyFile)
        ' 另存为PDF
        pdfName = Replace(MyFile, ".pptx", ".pdf")
        pptPres.SaveAs FilePath & pdfName, ppSaveAsPDF
        pptPres.Close
        MyFile = Dir()
    Loop
    MsgBox "转换完成！"
End Sub

运行方式： 回到PPT，按 Alt + F8，选择 BatchPPTtoPDF 并运行。

使用 LibreOffice 命令行 (跨平台，无需Office)

如果你没有Microsoft Office，或者希望跨平台（Linux/Mac/Windows），可以使用 LibreOffice 的命令行工具。

# 1. 安装 LibreOffice
# Windows: 下载安装包
# Mac: brew install --cask libreoffice
# Linux: sudo apt-get install libreoffice-core libreoffice-impress
# 2. 转换命令
# 转换为 PDF
libreoffice --headless --convert-to pdf presentation.pptx
# 转换为 PNG 图片 (每页一张图)
libreoffice --headless --convert-to png presentation.pptx
# 转换为 PPT (旧版 .ppt 转新版 .pptx)
libreoffice --headless --convert-to pptx old_format.ppt
# 批量转换所有PPT文件
for file in *.pptx; do
    libreoffice --headless --convert-to pdf "$file"
done

优点： 开源免费，无需Windows/Office依赖，适合服务器部署。
缺点： 对复杂排版（如特殊字体、动画）的还原度不如原生Office。

在线API转换 (适合无本地环境)

如果需要嵌入到网页或云服务中,可以使用第三方API：

Aspose.Slides Cloud：提供Python/Java SDK，免费额度2000次/月。
GroupDocs.Conversion：支持多种格式互相转换。
PandaDoc：在线API。

# Aspose示例 (需注册获取AppKey)
import aspose.slides as slides
# 使用License (免费试用时注释掉)
# slides.License().set_license("path/to/license.lic")
pres = slides.Presentation("input.pptx")
pres.save("output.pdf", slides.export.SaveFormat.PDF)

总结对比

方法	适用场景	优点	缺点
Python+comtypes	精确控制、批量处理	质量最高，可自定义导出参数	需Windows+Office，Windows独有
LibreOffice CLI	跨平台、云端、批量	开源免费，跨平台	复杂排版可能失真
VBA宏	临时快速转换	无需安装其他软件	仅限Windows Office环境
python-pptx	提取文字/创建PPT	纯Python，跨平台	无法处理动画/视频，只读纯文本