赞
踩
打开 PowerPoint 幻灯片,并确保每个幻灯片上都添加了备注。
启用"开发人员"选项卡:
创建宏:
编写宏代码:
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"
替换为您希望保存备注的实际路径和文件名。运行宏:
完成导出:
在浩如烟海的互联网搜索了一圈,除了陈年的导出html貌似已经用不了的方法,
还有就是可以看到22年教程导出讲义,但由于不知名原因一直显示ppt无法转入word遂又崩了。
干脆直接gpt了一下,你别说还真别说!!从如何打开开发者选项、从刚开始导出一页一页的备注文本到所有备注只有一个文本,我不得不说我真的是我真的是resp!!!
以上,再附上这个 gpt链接,大家可以有兴趣前往观赏~
Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。