' --------------------------------------------------------------------------------
' Hace una slide en la que pone todo el texto de la powerpoint
' --------------------------------------------------------------------------------

Sub Resumen()

    Dim oSld As Slide
    Dim oShp As Shape
    Dim oAgenda As TextRange
    Dim x As Integer
    
    
    ' Añadimos una slide más al principio
    
    ActivePresentation.Slides.Add 1, ppLayoutText
    
    With ActivePresentation.Slides(1)
        .Shapes(1).TextFrame.TextRange = ""
        Set oAgenda = .Shapes(2).TextFrame.TextRange
    End With
    
    ' La rellenamos con los textos de todos los placeholders de las otras slides
    
    oAgenda = ""
    
    scount = ActivePresentation.Slides.Count
    For j = 1 To scount
        fcount = ActivePresentation.Slides(j).Shapes.Count
        For k = 1 To fcount
            If ActivePresentation.Slides(j).Shapes(k).HasTextFrame Then
                oAgenda = oAgenda & ActivePresentation.Slides(j).Shapes(k).TextFrame.TextRange.Text & Chr(13)
            End If
        Next k
    Next j
End Sub