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

快速提取PPT中嵌入的视频和SWF文件的方法PPT嵌入的视频，通常是指ppt2007及以上的版本（ppt2003版本无法内嵌视频），用解压缩软件（winrar，好压等。。。）打开pptx文件，在:\ppt\media文件夹中应该可以找到你要的，最好直接解压它，分组按类型就找到了！一、快速提取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,FileNumberAsInteger

DimmyFileIdAsLong

DimmyArr()AsByte

DimiAsLong

DimMyFileLenAsLong,myIndexAsLong

DimswfFileLenAsLong

DimswfArr()AsByte

tmpFileName=Application.GetOpenFilename("officeFile(*.doc;*.xls),*.doc;*.xls",,"确定要分析的Office档")

IftmpFileName="False"ThenExitSub

myFileId=FreeFile

OpentmpFileNameForBinaryAs#myFileId

MyFileLen=LOF(myFileId)

ReDimmyArr(MyFileLen-1)

GetmyFileId,,myArr()

ClosemyFileId

Application.ScreenUpdating=False

i=0

DoWhilei<MyFileLen

IfmyArr(i)=&H46Then

IfmyArr(i+1)=&H57AndmyArr(i+2)=&H53Then

swfFileLen=CLng(&H1000000)*myArr(i+7)+CLng(&H10000)*myArr(i+6)+CLng(&H100)*myArr(i+5)+myArr(i+4)

ReDimswfArr(swfFileLen-1)

FormyIndex=0ToswfFileLen-1

swfArr(myIndex)=myArr(i+myIndex)

NextmyIndex

ExitDo

Else

i=i+3

EndIf

Else

i=i+1

EndIf

Loop

myFileId=FreeFile

tmpFileName=Left(tmpFileName,Len(tmpFileName)-4)&".swf"

OpentmpFileNameForBinaryAs#myFileId

Put#myFileId,,swfArr

ClosemyFileId

MsgBox"以"&tmpFileName&"名字保存"

EndSub图1-6退出VB编辑器后，另存为“提取SWF.xls”点击这里下载已经建好的“提取SWF.xls”

2、制作“生日礼物.xls”新建一个excel文档，，打开该文档，将PPT中的flash控件（ShockWaveFlashObject）复制，粘贴到excel，另存为“生日礼物.xls”,见图1-7至图1-9。图1-7复制嵌入“生日礼物.swf”的flash控件图1-8把嵌入“生日礼物.swf”的flash控件粘贴到excel。图1-9【文件】→【另存为】之后选择路径，保存为“生日礼物.xls”.3、“提取swf.xls”使用方法打开“提取swf.xls”，出现【安全警告】，点击【启用宏】。之后点击：【工具】—>【宏】—>【宏】—>【执行】，弹出【确定要分析的offes档】对话框，把路径指向“生日礼物.xls”，【执行】的结果是PPT中的SWF文件以“生日礼物.swf”被提取并保存。见图1-10至1-14图1-10打开“提取swf.xls”，出现【安全警告】，点击【启用宏】。图1-11打开“提取swf.xls”，点击：【工具】—>【宏】—>【宏】图1-12【宏】—>【执行】图1-13弹出【确定要分析的offes档】，路径指向“生日礼物.xls”，点击【打开】图1-14PPT中嵌入的SWF就以“生日礼物.swf”被提取，点击【确定】保存

1.将Excel07版中宏的安全级别降低。