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

快速提取PPT中嵌入的视频和SWF文件的方法,PPT嵌入的视频，通常是指ppt2007及以上的版本（ppt2003版本无法内嵌视频），用解压缩软件（winrar，好压等。）打开pptx文件，在:pptmedia文件夹中应该可以找到你要的，最好直接解压它，分组按类型就找到了！,一、快速提取PPT中嵌入的视频文件,二、快速提取PPT中嵌入的SWF文件,这里以提取生日贺卡中嵌入的”生日礼物.swf”为例介绍。用“提取SWF.xls”提取嵌入PPT中的SWF文件。这个方法还没有见到正式的命名。用MicrosoftOfficeExcel2003制作出“提取SWF.xls”，用这个文件可以提取嵌入到PPT中的SWF文件，故把“提取SWF.xls”文件作为软件名。,（1）把Excel2003宏的安全等级降为“中”由于“提取SWF.xls”文件中使用宏，在【模块】中加入VBA代码，不降低宏的安全等级，“提取SWF.xls”不能正常运行。宏的安全等级设置方法：【工具】【宏】【宏的安全性】选【中】见图1-1和图1-2,图1-1【工具】【宏】【宏的安全性】,1、制作“提取SWF.xls”方法,图1-2【宏的安全性】选【中】,（2）新建excel文档，打开该文档，找到：【工具】【宏】【VB编辑器】，在VB编辑器中【插入】【模块】在弹出窗口中粘贴VBA代码（见后面）。退出VBA编辑器。另存为“提取swf.xls”，见图1-3至图1-6。,图1-3【工具】【宏】【VB编辑器】,图1-4在VB编辑器中【插入】【模块】,图1-5把下一幻灯片中的VBA代码粘贴到【模块】的代码窗口中。,SubExtractFlash()DimtmpFileNameAsString,FileNumberAsIntegerDimmyFileIdAsLongDimmyArr()AsByteDimiAsLongDimMyFileLenAsLong,myIndexAsLongDimswfFileLenAsLongDimswfArr()AsBytetmpFileName=Application.GetOpenFilename(officeFile(*.doc;*.xls),*.doc;*.xls,确定要分析的Office档)IftmpFileName=FalseThenExitSubmyFileId=FreeFileOpentmpFileNameForBinaryAs#myFileIdMyFileLen=LOF(myFileId)ReDimmyArr(MyFileLen-1)GetmyFileId,myArr()ClosemyFileIdApplication.ScreenUpdating=Falsei=0DoWhilei【宏】【宏】【执行】，弹出【确定要分析的offes档】对话框，把路径指向“生日礼物.xls”，【执行】的结果是PPT中的SWF文件以“生日礼物.swf”被提取并保存。见图1-10至1-14,图1-10打开“提取swf.xls”，出现【安全警告】，点击【启用宏】。,2019/12/16,15,可编辑,图1-11打开“提取swf.xls”，点击：【工具】【宏】【宏】,图1-12【宏】【执行】,图1-13弹出【确定要分析的offes档】，路径指向“生日礼物.xls”，点击【打开】,图1-14PPT中嵌入的SWF就以“生日礼物.swf”被提取，点击【确定】保存,1.将Excel07版中宏的安全级别降低。2.新建一Excel文档，选择“开发工具”启动“VB”编辑器。（图1）,前面介绍的方法只适用于MicrosoftOfficeExcel2003。对于使用MicrosoftOfficeExcel2007以上者，可以用以下方法操作。,3.在打开的窗口中选择“插入”中的“模块”。（图2）,4.粘贴提取SWF的模块代码。（注：必须先将代码复制在Word文档中再粘贴到此处。（图3）,5.关闭“VB”编辑器，将文档另存为Excel03版的工作薄格式。命名为表格1（可以随意命名），注意必须另存为03版的格式。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