标题 | 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 |
随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。