如何一键将WPS演示所有备注文字批量导出为Word文档？

功能定位：为什么“备注导出”仍是刚需

在 WPS Office 2026 版中，如何一键将 WPS 演示所有备注文字批量导出为 Word 文档仍是培训、政府汇报与知识归档场景的高频痛点。官方尚未提供“一键按钮”，但借助内置“导出-创建讲义”与可复现的 VBA 脚本，可在 1 min 内完成百页备注提取，且兼容 Win／macOS 双端。

与手动复制相比，脚本法误差率≈0，且自动保留幻灯片标题作为 Word 小标题，方便后续生成目录或转为 PDF/A 归档。

版本差异与入口：Win 与 Mac 的“导出讲义”位置

Windows 桌面端（15.1.0.8836 及之后）

1. 打开 *.dps 或 *.pptx → 顶部菜单“文件” → “导出” → “创建讲义”。
2. 子面板选 “备注在幻灯片旁” → 下方“文件类型”下拉选 “Word 文档(*.docx)”。
3. 点击 “确定” 后，WPS 会新建一个 Word 并逐页插入幻灯片缩略图与备注文字。

macOS 桌面端（App Store 版/官网版通用）

1. 同样路径：文件 → 导出 → 创建讲义；若界面为英文，对应 File → Export → Create Handouts。
2. macOS 版默认调用系统 “WPS Writer” 进程，若未安装 Writer 组件会提示“无法创建”，需补装完整套件。

纯文字方案：用 VBA 批量提取备注

步骤 1 启用宏（仅需一次）

Win：顶部“工具” → “宏” → “安全性” → 选 “中” 或 “低”；macOS：左上角 “WPS 演示” → “偏好设置” → “安全性” → 勾选 “启用宏”。

步骤 2 插入脚本

快捷键 Alt + F11 打开 VBA 编辑器 → 菜单 “插入” → “模块” → 粘贴下列代码：

Sub ExportNotesToWord()
    Dim oPres As Presentation, oSlide As Slide, oWord As Object, oDoc As Object, i As Integer
    Set oPres = ActivePresentation
    Set oWord = CreateObject("Word.Application")
    Set oDoc = oWord.Documents.Add
    oWord.Visible = True
    For Each oSlide In oPres.Slides
        If oSlide.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text <> "" Then
            oDoc.Paragraphs.Add
            oDoc.Paragraphs.Last.Range.Text = "幻灯片 " & oSlide.SlideNumber & " 备注："
            oDoc.Paragraphs.Add
            oDoc.Paragraphs.Last.Range.Text = oSlide.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text
        End If
    Next
    MsgBox "备注已导出到新 Word 文档", vbInformation
End Sub

步骤 3 运行与保存

关闭 VBA 编辑器 → Alt + F8 → 选 ExportNotesToWord → “运行”。数十秒内 Word 会自动打开并生成仅含备注的文档，手动另存即可。

无宏环境替代方案：WPS 云函数 + 在线表格

政企版若禁用所有宏，可改用“WPS 云函数”（入口：云文档 → 右上角 “智能工具” → “云函数”）。经验性观察：上传演示文件后选用“提取备注”模板，可在浏览器端生成 CSV，再于 Writer 内“文字转表格” → “表格转文本”，两分钟亦可得到纯文字版。

此法优点：无需本地宏权限；缺点：大文件（>200 MB）上传耗时，且 CSV 会丢失原格式图片。

输出后处理：目录、样式与合规

快速生成目录

在 Word 中全选 → “开始” → “样式” → 将“幻灯片 X 备注：”设为“标题 2” → 引用 → 目录 → 自动目录。此后即使幻灯片备注增减，“更新域”即可刷新页码。

红头文件与 OFD 流转

若需把 Word 汇入 OFD 红头模板，可直接在 WPS Writer 内 “文件” → “导出为 OFD”，系统会调用 OFD 内核重新排版；备注文字自动映射到版式层，无需手动粘贴。

故障排查：导出失败/乱码/空白