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

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

2、T中的SWF文件，故把“提取SWF.xls”文件作为软件名。 （1）把Excel 2003宏的安全等级降为“中” 由于“提取SWF.xls”文件中使用宏，在【模块】中加入VBA代码，不降低宏的安全等级， “提取SWF.xls”不能正常运行。 宏的安全等级设置方法：【工具】【宏】【宏的安全性】选【中】见图1-1和图1-2 图1-1 【工具】【宏】【宏的安全性】1、制作“提取SWF.xls”方法 图1-2 【宏的安全性】选【中】图1-4 在VB编辑器中【插入】【模块】图1-5 把下一幻灯片中的VBA代码粘贴到【模块】的代码窗口中。Sub ExtractFlash()Dim tmpFileName

3、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(office File(*.doc;*.xls),*.doc;*.xls, , 确定要分析的 Office 档)If tmpFileName = False Then Exit Submy

4、FileId = FreeFileOpen tmpFileName For Binary As #myFileIdMyFileLen = LOF(myFileId)ReDim myArr(MyFileLen - 1)Get myFileId, , myArr()Close myFileIdApplication.ScreenUpdating = Falsei = 0Do While i 【宏】【宏】【执行】，弹出【确定要分析的offes档】对话框，把路径指向“生日礼物.xls”，【执行】的结果是PPT中的SWF文件以“生日礼物.swf”被提取并保存。见图 1-10至1-14图1-10 打开“提

5、取swf.xls”，出现【安全警告】，点击【启用宏】。图1-11 打开“提取swf.xls”，点击：【工具】【宏】【宏】图1-13 弹出【确定要分析的offes档】，路径指向“生日礼物.xls”，点击【打开】图1-14 PPT中嵌入的SWF就以“生日礼物.swf”被提取，点击【确定】保存 1.将Excel07版中宏的安全级别降低。 2.新建一Excel文档，选择“开发工具”启动“VB”编辑器。（图1） 前面介绍的方法只适用于Microsoft Office Excel 2003。对于使用Microsoft Office Excel 2007以上者，可以用以下方法操作。3.在打开的窗口中选择“插入”中的“模块”。（图2） 4.粘贴提取SWF的模块代码。（注：必须先将代码复制在Word文档中再粘贴到此处。（图3） 5.关闭“VB”编辑器，将文档另存为Excel03版的工作薄格式。命名为表格1（可以随意命名），注意必须另存为03版的格式。 6.另新建一Excel文档，将幻灯片中插入的SWF控件复制后粘贴到文档中。（图4） 7将文档另存为Excel03版的工作薄格式。命名为表格2（可以随意命名