答辩通过，分享一个PPT备注的批量抽取代码

Sub xx()
    Dim SlideCount As Integer
    SlideCount = ActivePresentation.Slides.Count
    Dim i As Integer
    Dim s As String
    Dim crlf As String
    Dim result As String
    result = ""
    crlf = (Chr(13) + Chr(10))
    For i = 1 To SlideCount
        result = result & crlf & "（" & i & "）" & crlf
        s = ActivePresentation.Slides.Item(i).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text
        result = result & s
    Next i
    Debug.Print result
End Sub