How to embed Q&As into PPT for custom output later...?

[Paul_Hossler]

You could use Custom Slide Shows and the Note page to select just the Q&A for each group, extract the Note and pass to Excel

Capture.JPG

I just added to a string and Msgbox

Option Explicit


Sub Example()
    Dim oPres As Presentation
    Dim oSettings As SlideShowSettings
    Dim oNamed As NamedSlideShow
    Dim iSlideID As Long
    Dim oSlide As Slide
    Dim oShape As Shape
    Dim sForExcel As String


    Set oPres = ActivePresentation
    Set oSettings = oPres.SlideShowSettings
    Set oNamed = oSettings.NamedSlideShows("Show For 134")  '   <<<<<<<<<<<<<name of custom slide show


    With oNamed
        For iSlideID = LBound(.SlideIDs) To UBound(.SlideIDs)
            If .SlideIDs(iSlideID) > 0 Then
        
                Set oSlide = oPres.Slides.FindBySlideID(.SlideIDs(iSlideID))

                sForExcel = "SlideID = " & oSlide.SlideID & " -- " & vbCrLf & vbCrLf
            
                If oSlide.Shapes.HasTitle Then sForExcel = sForExcel & oSlide.Shapes.Title.TextFrame.TextRange.Text & vbCrLf & vbCrLf
        
                If oSlide.HasNotesPage Then
                   For Each oShape In oSlide.NotesPage.Shapes
                        If oShape.PlaceholderFormat.Type = ppPlaceholderBody Then
                            If oShape.HasTextFrame Then
                                If oShape.TextFrame.HasText Then
                                    sForExcel = sForExcel & oShape.TextFrame.TextRange.Text & " -- "
                                End If
                            End If
                        End If
                    Next
                End If
            
                MsgBox sForExcel ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Give to Excel

            End If
        Next
    End With
End Sub