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

操作步骤：

1. 打开PPT界面
2. 在PPT界面，按下 Alt + F11 打开宏编辑器。

3. 点击“插入 → 模块”，复制以下代码：

   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

4. 运行宏：点击“运行”按钮或按 F5。

5. 桌面会生成一个名为 “PPT备注导出.txt” 的文本文件，里面是所有备注内容。