查看PPT评论

Question

我有一个PPT，里面有500多张幻灯片。它对我想获得/摘录的几张幻灯片有评论。很难滚动所有500张幻灯片。有没有办法，我可以一次得到所有的评论？

提前感谢您的帮助！！

Answer 1

你的标签提到了python，但这感觉像是一个一次性的问题，因为你已经有了PowerPoint，你可以使用VBA来解决它

Sub ListComments()
Dim oSl As Slide
Dim oCom As Comment
Dim sTemp As String
Dim x As Long
For Each oSl In ActivePresentation.Slides
For Each oCom In oSl.Comments
sTemp = sTemp & oCom.Text & vbCrLf
For x = 1 To oCom.Replies.Count
sTemp = sTemp & vbTab & oCom.Replies(x).Text & vbCrLf
Next
Next
Next
' This will "print" the result to the immediate window
' Press Ctrl+G in the VBA editor if it's not open
' If there are more comments than the window will allow,
'   you'll need to write the contents of sTemp to file or
'   do something else with it.
Debug.Print sTemp
End Sub