如何批量导出 PowerPoint 中的备注到一个txt文本中【最简单最强版】

夏の流水账博客

已于 2023-06-19 00:22:53 修改

阅读量2.3k

点赞数 2

分类专栏： PowerPoint 文章标签： powerpoint ai

于 2023-06-19 00:19:11 首次发布

本文链接：https://blog.csdn.net/chengzi5984223/article/details/131278132

版权

PowerPoint 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

太长不看版

使用宏（Macro）功能（适用于 Windows 平台）

打开 PowerPoint 幻灯片，并确保每个幻灯片上都添加了备注。
启用"开发人员"选项卡：
- 如果您已经看到 PowerPoint 的"开发人员"选项卡，请跳至下一步。
- 如果未看到"开发人员"选项卡，请按照以下步骤启用它：
  - 点击 PowerPoint 工具栏中的"文件"选项。
  - 在文件选项中，选择"选项"。
  - 在"PowerPoint 选项"对话框中，选择"自定义功能区"。
  - 在右侧的"主选项卡"列表中，找到并选中"开发人员"选项。
  - 点击"确定"按钮。
创建宏：
- 点击"开发人员"选项卡中的"宏"按钮。
- 在宏对话框中，输入一个宏的名称（例如"ExportNotes"）。
- 点击"创建"按钮，将打开 Visual Basic for Applications（VBA）编辑器。

编写宏代码：

在 VBA 编辑器中，将以下代码复制并粘贴到宏编辑窗口中：

Sub ExportNotes()
    Dim Slide As Slide
    Dim Notes As String
    Dim i As Integer
    Dim FilePath As String

    ' 设置保存路径和文件名
    FilePath = "C:\Export\All_Notes.txt"

    Open FilePath For Output As #1

    For Each Slide In ActivePresentation.Slides
        i = i + 1
        Notes = Slide.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text

        Print #1, "Page " & i & ":"
        Print #1, Notes
        Print #1, ""
    Next Slide

    Close #1

    MsgBox "备注已导出到：" & FilePath
End Sub

将代码中的保存路径"C:\Export\All_Notes.txt"替换为您希望保存备注的实际路径和文件名。

运行宏：
- 关闭 VBA 编辑器。
- 回到 PowerPoint 中，点击"宏"按钮。
- 在宏对话框中，选择刚才创建的宏"ExportNotes"，然后点击"运行"。
完成导出：
- 宏将逐个幻灯片遍历，并将每个幻灯片的备注按页面顺序追加到同一个文本文件中。
- 当运行完毕后，您将收到一个

废话版

在浩如烟海的互联网搜索了一圈，除了陈年的导出html貌似已经用不了的方法，
还有就是可以看到22年教程导出讲义，但由于不知名原因一直显示ppt无法转入word遂又崩了。
干脆直接gpt了一下，你别说还真别说！！从如何打开开发者选项、从刚开始导出一页一页的备注文本到所有备注只有一个文本，我不得不说我真的是我真的是resp！！！
以上，再附上这个 gpt链接，大家可以有兴趣前往观赏~