如何从PPT中导出演讲备注？

操作步骤打开PPT界面在PPT界面按下Alt F11打开宏编辑器。点击“插入 → 模块”复制以下代码Sub ExportNotesText() Dim slide As slide Dim notesText As String Dim i As Integer notesText For Each slide In ActivePresentation.Slides notesText notesText 幻灯片 slide.SlideIndex : vbCrLf notesText notesText slide.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text vbCrLf vbCrLf Next slide 将结果保存为 TXT 文件 Dim filePath As String filePath Environ(USERPROFILE) \Desktop\PPT备注导出.txt Dim fileNum As Integer fileNum FreeFile Open filePath For Output As #fileNum Print #fileNum, notesText Close #fileNum MsgBox 备注已导出到桌面 filePath End Sub运行宏点击“运行”按钮或按F5。桌面会生成一个名为“PPT备注导出.txt”的文本文件里面是所有备注内容。