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

* 安徽桐城余双红 PPT嵌入的视频，通常是指ppt2007及以上的版本（ppt2003版本无法内嵌视频）， 用解压缩软件（winrar，好压等。。。）打开pptx文件，在:\ppt\media文件夹中应该可以找到你要的，最好直接解压它，分组按类型就找到了！ 一、快速提取PPT中嵌入的视频文件 二、快速提取PPT中嵌入的SWF文件 这里以提取生日贺卡中嵌入的”生日礼物.swf”为例介绍。 用“提取SWF.xls”提取嵌入PPT中的SWF文件。这个方法还没有见到正式的命名。用Microsoft Office Excel 2003制作出“提取SWF.xls”，用这个文件可以提取嵌入到PPT中的SWF文件，故把“提取SWF.xls”文件作为软件名。 （1）把Excel 2003宏的安全等级降为“中” 由于“提取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代码粘贴到【模块】的代码窗口中。 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(office 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 MyFileLenIf myArr(i) = H46 ThenIf myArr(i + 1) = H57 And myArr(i + 2) = H53 ThenswfFileLen = CLng(H1000000) * myArr(i + 7) + CLng(H10000) * myArr(i + 6) + CLng(H100) * myArr(i + 5) + myArr(i + 4)ReDim swfArr(swfFileLen - 1)For myIndex = 0 To swfFileLen - 1swfArr(myIndex) = myArr(i + myIndex)Next myIndexExit DoElsei = i + 3End IfElsei = i + 1End IfLoopmyFileId = FreeFiletmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) .swfOpen tmpFileName For Binary As #myFileIdPut #myFileId, , swfArrClose myFileIdMsgBox 以 tmpFileName 名字保存End Sub 图1-6 退出VB编辑器后，另存为“提取SWF.xls” 点击这里下载 已经建好的“提取SWF.xls” 2、制作 “生日礼物.xls” 新建一个excel文档，，打开该文档，将PPT中的flash控件（ ShockWave Flash Obje