vba 獲取PPT幻燈片中的所有標題的代碼

有時候需要獲取PPT幻燈片中的所有標題，如果手工的復制肯定很慢，那么可以用vba批量獲取，提高工作效率。

復制代碼 代碼如下:

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

'循環(huán)每頁幻燈

For i = 1 To oPres.Slides.Count

Set oSlide = oPres.Slides.Item(i)

'獲取圖形對象

For j = 1 To oSlide.Shapes.Count

Set oShape = oSlide.Shapes.Item(j)

'如果有文字

If oShape.TextFrame.HasText = msoTrue Then

Set tr = oShape.TextFrame.TextRange

sText = tr.Text

'如果符合格式: 根據(jù)情況設定, 此處前三位構成為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