VBA gets code _VBA for all headings in a ppt slide

Copy Code code as follows:

Private Sub CommandButton1_Click ()
me.enabled = False
GetTitles
me.enabled = True
End Sub


Sub GetTitles ()
On Error Resume Next
Dim Opres as Presentation
Set opres = application.activepresentation
Dim oslide as Slide
Dim oshape as Shape
Dim TR as TextRange
Dim Stext as String
Dim I as Long, J as Long
' Cycle per page slideshow
For i = 1 to OPres.Slides.Count
Set oslide = OPres.Slides.Item (i)
' Get the drawing object
For j = 1 to OSlide.Shapes.Count
Set oshape = OSlide.Shapes.Item (j)
' If there is text
If OShape.TextFrame.HasText = MsoTrue Then
Set tr = OShape.TextFrame.TextRange
Stext = tr. Text
' If the format: according to the situation set, here the first three bits constitute x.y
If IsNumeric (Left (stext, 3)) Then
' MsgBox stext
Textbox1.selstart = 65535
Textbox1.seltext = stext & vbCrLf
End If
Set tr = Nothing
End If
Set oshape = Nothing
Next
Set oslide = Nothing
Next
Set opres = Nothing
End Sub