vba 获取PPT幻灯片中的所有标题的代码

jh035

于 2022-11-26 10:08:26 发布

阅读量863

点赞数

文章标签： powerpoint

本文链接：https://blog.csdn.net/jh035/article/details/128048427

版权

这段VBA代码用于在PowerPoint中遍历每一页幻灯片，查找所有形状中的文本框，并提取以数字开头的文本。当找到符合格式的文本时，它会显示在TextBox1中。该代码适用于自动化处理含有特定格式信息的幻灯片。

摘要由CSDN通过智能技术生成

代码如下:

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