01
用 PowerPoint 2010 打开含有视频文件的PPT 文档。
02
接着，按 Alt + F11 开启PPT的 VBA功能。
03
出现 VBA活动窗口后，然后按 Ctrl + G 打开VBA的【立即窗口】 视窗。
04
将下面一串代码复制到【立即窗口】中。请参照例子，将 SaveAs后的内容稍作修改。
ActivePresentation.SaveAs "<Drive>:users<username>desktop<filename>.htm", ppSaveAsHTML, msoFalse
（例如：这里设置存储路径为D盘，档案名称为123.htm，则改成：
ActivePresentation.SaveAs "D:123.htm", ppSaveAsHTML, msoFalse）。
05
完成输入后，按Enter 键执行。等待几秒钟，在存储路径里面，可以找到名称为123.files的文件夹。
找到要进行操作的PPT，选中PPT，点击鼠标【右键】，将其添加到压缩文件；
接着双击已经做好的压缩文件，选中PPT，点击上方工具栏的【查看】，在弹出来的窗口中，找到并点击【ppt】文件夹；
然后在下一级菜单里，找到【media】文件夹，双击打开，在这里我们就可以看到PPT里所有的媒体文件了；
然后将wav文件重新命名，改为mp4格式，再将它拖出就可以了，这就是从PPT中提取视频的方法。
