加载中…
个人资料
AAA张绍山
AAA张绍山 新浪个人认证
  • 博客等级:
  • 博客积分:0
  • 博客访问:17,338
  • 关注人气:4
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
相关博文
推荐博文
正文 字体大小:

将PPT中所有文字提取出来

(2017-03-23 11:14:27)
标签:

ppt

分类: 软件开发
不需要任何软件,就可以直接把PPT里所有文字全部提取出来。注意,由于在PPT中文字内部的顺序和看到的不一定一样,一个页面的文字可能会有先后顺序的问题,提取后要仔细检查

一、打开PPT后,再打开VBA编辑器(Alt+F11)

二、引入WORD组件(工具 - 引用 - Microsoft Word *** Object Library)

三、编辑脚本(插入 - 新建 模块)

Sub Main()

    On Error Resume Next

    Dim tw As New Word.Document, ts As Shape, tsd As Slide

    For Each tsd In ActivePresentation.Slides

        For Each ts In tsd.Shapes

            tw.Range().Text = tw.Range() + ts.TextFrame.TextRange.Text

        Next ts

    Next tsd

    tw.Application.Visible = True

End Sub

四、运行(F5)

0

阅读 评论 收藏 转载 喜欢 打印举报/Report
  • 评论加载中,请稍候...
发评论

    发评论

    以上网友发言只代表其个人观点,不代表新浪网的观点或立场。

      

    新浪BLOG意见反馈留言板 电话:4000520066 提示音后按1键(按当地市话标准计费) 欢迎批评指正

    新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

    新浪公司 版权所有