随笔写写：PPT文字批量提取—VB编程解决方案

用途

一键提取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）