中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

代碼如下:

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

'循環每頁幻燈

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

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

更多信息請查看IT技術專欄