用途
一键提取PPT中所有文字到word
可能会遇到这么一种尴尬情形：
想要把一个做好的PPT转换成word文件使用，尤其老师发来的课件基本就是讲义的情况下。——总不能一张张的复制粘贴吧，费事费力，是强迫症说不定还要一张张的排版，弄完以后都想过会再看了。
那么提供这样一种解决方案，既然Office套件支持VBA编程，那我们就通过VisualBasic编写一个模块批量提取好了。
工具
- Office Powerpoint
- Office Word
操作步骤
1.打开某张PPT
2.启动Visual Basic开发组件
方法A：快捷键Alt+F11
方法B：确保已经打开“开发工具”，Office默认是不启用的。在选项菜单可以找到
然后在开发工具选项卡点击“查看代码”
就可以进入VisualBasic用过VB编程的同学一定不陌生
2.建立提取模块
- 插入模块
将下列代码复制到弹出的模块之中
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
3.关联Word组件
- 菜单栏>工具>引用
- 找到Word组件打勾
4.提取内容
启动程序就会弹出一个word文件。（启动快捷键：F5）
