批量导出 PPT的备注到一个txt文本中

使用宏(Macro)功能(适用于 Windows 平台)

打开 PowerPoint 幻灯片,并确保每个幻灯片上都添加了备注。

启用"开发人员"选项卡:

如果您已经看到 PowerPoint 的"开发人员"选项卡,请跳至下一步。

如果未看到"开发人员"选项卡,请按照以下步骤启用它:

点击 PowerPoint 工具栏中的"文件"选项。

在文件选项中,选择"选项"。

在"PowerPoint 选项"对话框中,选择"自定义功能区"。

在右侧的"主选项卡"列表中,找到并选中"开发人员"选项。

点击"确定"按钮。

创建宏:

点击"开发人员"选项卡中的"宏"按钮。

在宏对话框中,输入一个宏的名称(例如"ExportNotes")。

点击"创建"按钮,将打开 Visual Basic for Applications(VBA)编辑器。

编写宏代码:

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

vbscript 复制代码
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",然后点击"运行"。

完成导出:

宏将逐个幻灯片遍历,并将每个幻灯片的备注按页面顺序追加到同一个文本文件中。

当运行完毕后,您将收到一个TXT


版权声明:本文为CSDN博主「夏の流水账博客」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。

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

相关推荐
WHS-_-20222 天前
如何设置PPTX的默认打开应用为PowerPoint
powerpoint
MiaoChuAI2 天前
秒出PPT vs 豆包AI PPT:实测哪款更好用?
人工智能·powerpoint
IT小农工2 天前
Windows 文件资源管理器无法预览文件内容word、ppt、excel、pdf
windows·word·powerpoint
揭老师高效办公4 天前
在PowerPoint和WPS演示让蝴蝶一直跳8字舞
powerpoint·wps
星河顾盼4 天前
【微信小程序预览文件】(PDF、DOC、DOCX、XLS、XLSX、PPT、PPTX)
微信小程序·pdf·powerpoint
揭老师高效办公4 天前
打开多个Excel文件后快速关闭所有的文档,并且退出Excel应用
word·powerpoint·excel
揭老师高效办公4 天前
PowerPoint和WPS演示如何在放映PPT时用鼠标划重点
powerpoint·wps
MiaoChuAI4 天前
想找Gamma的平替?这几款AI PPT工具值得试试
人工智能·powerpoint
揭老师高效办公4 天前
PowerPoint和WPS演示如何循环放映PPT
powerpoint·wps