1、打开PPT中VBA界面并输入代码首先按Alt+F11打开相应的VBA界面，这时选择选项卡中的插入——模块打开相应的界面，如图所示
2、然后选择工具选项卡下的引用，如图所示：
3、之后我们在相应的界面中找到类型为“MicrosoftWord16.0ObjectLibrary”，点击确定。
4、最后在模块中输入以下代码并按F5运行
5、运行代码之后，文本就会本提取出来，但是比较乱，有很多的空行，这时利用Ctrl+H打开查找和替换对话框，之后在查找中^p^p，在替换中输入^p，如果空行比较多，多替换几次即可。具体操作如下：
