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

《快速提取PPT中嵌入的视频和SWF文件的方法.ppt》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

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

2、xcel2003制作出“提取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文档，打

3、开该文档，找到：【工具】—>【宏】—>【VB编辑器】，在VB编辑器中【插入】—>【模块】在弹出窗口中粘贴VBA代码（见后面）。退出VBA编辑器。另存为“提取swf.xls”，见图1-3至图1-6。图1-3【工具】—>【宏】—>【VB编辑器】图1-4在VB编辑器中【插入】—>【模块】图1-5把下一幻灯片中的VBA代码粘贴到【模块】的代码窗口中。SubExtractFlash()DimtmpFileNameAsString,FileNumberAsIntegerDimmyFileIdAsLongDimmyArr()A

4、sByteDimiAsLongDimMyFileLenAsLong,myIndexAsLongDimswfFileLenAsLongDimswfArr()AsBytetmpFileName=Application.GetOpenFilename("officeFile(*.doc;*.xls),*.doc;*.xls",,"确定要分析的Office档")IftmpFileName="False"ThenExitSubmyFileId=FreeFileOpentmpFileNameForBinaryAs#myF

5、ileIdMyFileLen=LOF(myFileId)ReDimmyArr(MyFileLen-1)GetmyFileId,,myArr()ClosemyFileIdApplication.ScreenUpdating=Falsei=0DoWhilei

6、+CLng(&H100)*myArr(i+5)+myArr(i+4)ReDimswfArr(swfFileLen-1)FormyIndex=0ToswfFileLen-1swfArr(myIndex)=myArr(i+myIndex)NextmyIndexExitDoElsei=i+3EndIfElsei=i+1EndIfLoopmyFileId=FreeFiletmpFileName=Left(tmpFileName,Len(tmpFileName)-4)&".swf"OpentmpFileNam

7、eForBinaryAs#myFileIdPut#myFileId,,swfArrClosemyFileIdMsgBox"以"&tmpFileName&"名字保存"EndSub图1-6退出VB编辑器后，另存为“提取SWF.xls”点击这里下载已经建好的“提取SWF.xls”2、制作“生日礼物.xls”新建一个excel文档，，打开该文档，将PPT中的flash控件（ShockWaveFlashObject）复制，粘贴到excel，另存为“生日礼物.xls”,见图1-7至图1-9。图1-7复制嵌入“生日礼物.swf”的

8、flash控件图1-8把嵌入“生日礼物.swf”的flash控件粘贴到excel。图1-9【文件】→【另存为】之后选择路径，保存为“生日礼物.xls”.3、“提取swf.xls”使用方法打开“提取swf.xls”，出现【安全警告】，点击【启用宏】。之后点击：【工具】—>【宏】—>【宏】—>【执行】，弹出【确定要分析的offes档】