请选择 进入手机版 | 继续访问电脑版

大风起兮云飞扬   发表于 2019-11-15 22:12:48 |栏目:
教你把PPT中所有文本框里的文字提取出来
打开PPT,按ALT+F11打开VBA编辑器,在左面的工程视图里点击右键,选择插入->模块,
添加一个模块,名字都不用改。
然后点击顶部的“工具”菜单,选择引用,找“Microsoft Word ×.0Object Library(其中x与你
的OFFICE版本有关),钩上,点确定
将下列代码贴到刚建立的模块里,按F5即可
Sub Main()
On Error Resume Next
Dim temp As New Word.Document,tmpShape As Shape,tmpSlide As Slide
For Each tmpSlide In ActivePresentation.Slides
For Each tmpShape In tmpSlide.Shapes
temp.Range().Text=temp.Range()+tmpShape.TextFrame.TextRange.Text
Next tmpShape
Next tmpSlide
temp.Application.Visible=True
End Sub
复制以上代码后,f5,就会打开一个word,另存为即可。




上一篇:【史上最全出题合集】小学数学出题软件单文件版-随机出题-题库丰富一键打印
下一篇:图灵程序设计丛书 Python Web开发 测试驱动方法 安道译

发帖前要善用【论坛搜索】功能,以免资源重复发布;

如果吧里没有您要寻找的资源,请在【求资源】版面发帖求助,得到应助请及时结帖;

如何回报帮助你的吧友,一个好办法就是给对方【顶帖】,顶帖不加分不扣分,但可以让对方的帖子靠前让更多的人看到!

回复 显示全部楼层 使用道具 举报

z3229916

氦级

z3229916   发表于 2019-11-22 08:21:18 |栏目:
這麼好的帖子都沒有人頂!d=====( ̄▽ ̄*)b,我來多頂頂樓主

发帖前要善用【论坛搜索】功能,以免资源重复发布;

如果吧里没有您要寻找的资源,请在【求资源】版面发帖求助,得到应助请及时结帖;

如何回报帮助你的吧友,一个好办法就是给对方【顶帖】,顶帖不加分不扣分,但可以让对方的帖子靠前让更多的人看到!

rivers99

氦级

rivers99   发表于 2019-11-29 07:51:20 |栏目:
确实是难得好帖啊,讓我涕流滿面,頂頂一起下吧先

发帖前要善用【论坛搜索】功能,以免资源重复发布;

如果吧里没有您要寻找的资源,请在【求资源】版面发帖求助,得到应助请及时结帖;

如何回报帮助你的吧友,一个好办法就是给对方【顶帖】,顶帖不加分不扣分,但可以让对方的帖子靠前让更多的人看到!

白玉

氦级

白玉   发表于 7 天前 |栏目:
我帶著醬油瓶路過一起下吧的,還是忍不住小手一抖!

发帖前要善用【论坛搜索】功能,以免资源重复发布;

如果吧里没有您要寻找的资源,请在【求资源】版面发帖求助,得到应助请及时结帖;

如何回报帮助你的吧友,一个好办法就是给对方【顶帖】,顶帖不加分不扣分,但可以让对方的帖子靠前让更多的人看到!

嗨少年

等待验证会员

嗨少年   发表于 前天 23:32 |栏目:
这个資源一般般,不過我喜歡

发帖前要善用【论坛搜索】功能,以免资源重复发布;

如果吧里没有您要寻找的资源,请在【求资源】版面发帖求助,得到应助请及时结帖;

如何回报帮助你的吧友,一个好办法就是给对方【顶帖】,顶帖不加分不扣分,但可以让对方的帖子靠前让更多的人看到!

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

作者相关信息

极品资源推荐

热门资源推荐

最新资源推荐

高分悬赏

热门Tag标签

 
 
在线客服
广告服务
工作时间:
8:00-22:00
客服QQ:
1197719870
关注官方微信公众号
快速回复 返回顶部 返回列表