pptのスライドタイトルを列挙

enumPageTitle.bas

Option Explicit

Function IsTitle(sh As Shape) As Boolean
    On Error GoTo Trap
    IsTitle = False
    If sh.PlaceholderFormat.Type = ppPlaceholderTitle Then IsTitle = True
Trap:
End Function


Sub EnumPageTitle(p As Presentation)
    Dim s       As Slide
    Dim sh     As Shape
    Dim t       As String
    
    For Each s In p.Slides
        For Each sh In s.Shapes
            If IsTitle(sh) Then
                If sh.HasTextFrame Then
                    t = sh.TextFrame.TextRange.Text
                    t = Replace(t, vbCrLf, " ")
                    t = Replace(t, vbCr, " ")
                    t = Replace(t, vbLf, " ")
                    t = Replace(t, vbVerticalTab, " ")
                    
                    Debug.Print s.SlideIndex & " " & t
                End If
            End If
        Next
    Next

End Sub

Sub main()
    Call EnumPageTitle(Application.Presentations(1))
End Sub