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