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

快速提取宣讲中嵌入的视频和SWF文件的方法;PPT嵌入的视频，通常是指ppt2007及以上的版本（ppt2003版本无法内嵌视频）， 用解压缩软件（winrar，好压等。。。）打开pptx文件，在:\ppt\media文件夹中应该可以找到你要的，最好直接解压它，分组按类型就找到了！ ;二、快速提取PPT中嵌入的SWF文件; （1）把Excel 2003宏的安全等级降为“中” 由于“提取SWF.xls”文件中使用宏，在【模块】中加入VBA代码，不降低宏的安全等级， “提取SWF.xls”不能正常运行。 宏的安全等级设置方法：【工具】→【宏】→【宏的安全性】→选【中】见图1-1和图1-2 ;图1-2 【宏的安全性】→选【中】; （2）新建excel文档，打开该文档，找到：【工具】—【宏】—【VB编辑器】，在VB编辑器中【插入】—【模块】 在弹出窗口中粘贴VBA代码（见后面）。退出VBA编辑器。另存为“提取swf.xls”，见图1-3至图1-6。 ;图1-4 在VB编辑器中【插入】—【模块】;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;;点击这里下载; 2、制作 “生日礼物.xls” 新建一个excel文档，，打开该文档，将PPT中的flash控件（ ShockWave Flash Object ）复制，粘贴到excel ，另存为“生日礼物.xls”,见图1-7至图1-9;;; 3、 “提取swf.xls”使用方法 打开“提取swf.xls”，出现【安全警告】，点击【启用宏】。之后点击：【工具】—【宏】—【宏】—【执行】，弹出【确定要分析的offes档】对话框，把路径指向“生日礼物.xls”，【执行】的结果是PPT中的SWF文件以“生日礼物.swf”被提取并保存。见图 1-10至1-14;图1-11 打开“提取swf.xls”，点击：【工具】—【宏】—【宏】;;;图1-14 PPT中嵌入的SWF就以“生日礼物.swf”被提取，点击【确定】保存;;3.在打开的窗口中选择“插入”