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