作者darien ( 毛茸茸)
看板Visual_Basic
标题Re: [VBA ] 想用VBA去读ppt里的文字
时间Sat Jun 14 18:23:03 2014
: A栏填入一个"powerpoint的档案名称" , B栏想填入"这个powerpoint的作者"
: §作者名字只写在powerpoint里,最右下角的文字方块之中§
Thanks to knstt!
I make it!
但无穷的慾望是驱使吾人写程式的动力......
我又想得寸进尺多写一点更convenient的程式
先把我目前的程式大略码写在下面
----------------------------------------------------
Sub CallName()
Dim ppApp As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
Dim ppSlide As PowerPoint.Slide
Dim ppShape As PowerPoint.Shape
Dim tr As TextRange
以储存格中的文字建立超连结到该ppt档案
开启超连结
Set ppApp = New PowerPoint.Application
Set ppPres = ppApp.Presentations(1)
Set ppSlide = ppPres.Slides.Item(1)
For j = 1 To ppSlide.Shapes.Count
Set ppShape = ppSlide.Shapes.Item(j)
If 这个shape物件是我要的格式和内容 Then
Set tr = ppShape.TextFrame.TextRange
tr.Copy
贴到EXCEL档案
End If
Next j
End Sub
----------------------------------------------------
我的问题(慾望)如下:
可不可以不要经过"开启超连结"的动作就让程式去找到那份PowerPoint档
然後在不开启的情况下 用以上方法去复制我要的物件?
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 180.177.223.214
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1402741386.A.DDB.html
1F：推 tsongs:推 回应解答还有程式码 好习惯 06/14 19:09