快速提取PPT中嵌入的视频和SWF文件的方法

1、安徽桐城余双红安徽桐城余双红PPT嵌入的视频，通常是指ppt2007及以上的版本（ppt2003版本无法内嵌视频）， 用解压缩软件（winrar，好压等。）打开pptx文件，在:pptmedia文件夹中应该可以找到你要的，最好直接解压它，分组按类型就找到了！ 一、快速提取PPT中嵌入的视频文件安徽桐城余双红二、快速提取PPT中嵌入的SWF文件这里以提取生日贺卡中嵌入的”生日礼物.swf”为例介绍。用“提取SWF.xls”提取嵌入PPT中的SWF文件。这个方法还没有见到正式的命名。用Microsoft Office Excel 2003制作出“提取SWF.xls”，用这个文件可以提取嵌入到PPT

2、中的SWF文件，故把“提取SWF.xls”文件作为软件名。 安徽桐城余双红 （1）把）把Excel 2003宏的安全等级降为宏的安全等级降为“中中” 由于由于“提取提取SWF.xls”文件中使用宏，在【模块】中加入文件中使用宏，在【模块】中加入VBA代码，不降低宏的安全等级，代码，不降低宏的安全等级， “提取提取SWF.xls”不能正常运行。不能正常运行。 宏的安全等级设置方法：【工具】宏的安全等级设置方法：【工具】【宏】【宏】【宏的安全性】【宏的安全性】选【中】见图选【中】见图1-1和图和图1-2 图图1-1 【工具】【工具】【宏】【宏】【宏的安全性【宏的安全性】1、制作制作“提取提取SWF

3、.xls”方法方法 安徽桐城余双红图图1-2 【宏的安全性】【宏的安全性】选【中选【中】安徽桐城余双红 （2）新建）新建excel文档，打开该文档，找到：【工具文档，打开该文档，找到：【工具】【宏【宏】【VB编辑器】，在编辑器】，在VB编辑器中【插入编辑器中【插入】【模块【模块】在弹出窗口中粘贴在弹出窗口中粘贴VBA代码（见后面）。退出代码（见后面）。退出VBA编辑器。另存编辑器。另存为为“提取提取swf.xls”，见图，见图1-3至图至图1-6。 图图1-3【工具【工具】【宏【宏】【VB编辑器编辑器】安徽桐城余双红图图1-4 在在VB编辑器中【插入编辑器中【插入】【模块【模块】图图1-5 把

4、下一幻灯片中的把下一幻灯片中的VBA代码粘贴到【模块】的代码窗口中。代码粘贴到【模块】的代码窗口中。安徽桐城余双红Sub ExtractFlash()Dim tmpFileName As String, FileNumber As IntegerDim myFileId As LongDim myArr() As ByteDim i As LongDim MyFileLen As Long, myIndex As LongDim swfFileLen As LongDim swfArr() As BytetmpFileName = Application.GetOpenFilename(off

5、ice File(*.doc;*.xls),*.doc;*.xls, , 确定要分析的确定要分析的 Office 档档)If tmpFileName = False Then Exit SubmyFileId = FreeFileOpen tmpFileName For Binary As #myFileIdMyFileLen = LOF(myFileId)ReDim myArr(MyFileLen - 1)Get myFileId, , myArr()Close myFileIdApplication.ScreenUpdating = Falsei = 0Do While i 【宏宏】【宏【

6、宏】【执行】，弹出【确定【执行】，弹出【确定要分析的要分析的offes档】对话框，把路径指向档】对话框，把路径指向“生日礼物生日礼物.xls”，【执行】，【执行】的结果是的结果是PPT中的中的SWF文件以文件以“生日礼物生日礼物.swf”被提取并保存。见被提取并保存。见图图 1-10至至1-14图图1-10 打开打开“提取提取swf.xls”，出现【安全警告】，点击【启用宏】。，出现【安全警告】，点击【启用宏】。安徽桐城余双红图图1-11 打开打开“提取提取swf.xls”，点击：【工具，点击：【工具】【宏【宏】【宏【宏】安徽桐城余双红图图1-12【宏【宏】【执行【执行】安徽桐城余双红图图1-

7、13 弹出【确定要分析的弹出【确定要分析的offes档】，路径指向档】，路径指向“生日礼物生日礼物.xls”，点击【打开，点击【打开】安徽桐城余双红图图1-14 PPT中嵌入的中嵌入的SWF就以就以“生日礼物生日礼物.swf”被提取，点击【确定】保被提取，点击【确定】保存存安徽桐城余双红 1.将将Excel07版中宏的安全级别降低。版中宏的安全级别降低。 2.新建一新建一Excel文档，选择文档，选择“开发工具开发工具”启动启动“VB”编辑器。编辑器。（图（图1） 前面介绍的方法只适用于前面介绍的方法只适用于Microsoft Office Excel 2003。对于使用。对于使用Micros

8、oft Office Excel 2007以上者，以上者，可以用以下方法操作。可以用以下方法操作。安徽桐城余双红3.在打开的窗口中选择在打开的窗口中选择“插入插入”中的中的“模块模块”。（图（图2）安徽桐城余双红 4.粘贴提取粘贴提取SWF的模块代码。（注：必须先将代码复制在的模块代码。（注：必须先将代码复制在Word文档中再粘贴到此处。（图文档中再粘贴到此处。（图3）安徽桐城余双红 5.关闭关闭“VB”编辑器，将文档另存为编辑器，将文档另存为Excel03版的工作薄格式。版的工作薄格式。命名为表格命名为表格1（可以随意命名），注意必须另存为（可以随意命名），注意必须另存为03版的格式。版的格

9、式。 6.另新建一另新建一Excel文档，将幻灯片中插入的文档，将幻灯片中插入的SWF控件复制后粘控件复制后粘贴到文档中。（图贴到文档中。（图4） 7将文档另存为将文档另存为Excel03版的工作薄格式。命名为表格版的工作薄格式。命名为表格2（可（可以随意命名）注意必须另存为以随意命名）注意必须另存为03版的格式。版的格式。安徽桐城余双红 8.重新打开表格重新打开表格1，选择，选择“宏宏”在在“宏宏”窗口选择窗口选择“执行执行”。（图（图5）安徽桐城余双红 9.在弹出的在弹出的“确定要分析的确定要分析的Office文档文档”窗口找到保存的表格窗口找到保存的表格2并打开。（图并打开。（图6）安徽桐城余双红 10.插入插入PPT中的中的SWF文件就以文件就以Book2的名称保存。（图的名称保存。（图7）安徽桐城余双红 “提取提取SWF.xls”制作不用安装软件，只要得到提取制作不用安装软件，只要得到提取SWF模块代模块代码就可以制作码就可以制作“提取提取SWF.xls”，制作这个文件操作不算复杂。制作，制作这个文件操作不算复杂。制作完成后就可以用它单独