网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

请输入您要查询的考试资料:

 

标题 vba 获取PPT幻灯片中的所有标题的代码
内容
    代码如下:
    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
随便看

 

在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。

 

Copyright © 2002-2024 cuapp.net All Rights Reserved
更新时间:2025/6/18 9:33:15