快速提取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”，出現【安全警告】，點擊【啟用宏】。之后點擊：【工具】—>【宏】—>【宏】—>【執(zhí)行】，彈出【確定要分析的offes檔】對話框，把路徑指向“生日禮物.xls”，【執(zhí)行】的結果是PPT中的SWF文件以“生日禮物.swf”被提取并保存。見圖1-10至1-14圖1-10打開“提取swf.xls”，出現【安全警告】，點擊【啟用宏】。圖1-11打開“提取swf.xls”，點擊：【工具】—>【宏】—>【宏】圖1-12【宏】—>【執(zhí)行】圖1-13彈出【確定要分析的offes檔】，路徑指向“生日禮物.xls”，點擊【打開】圖1-14PPT中嵌入的SWF就以“生日禮物.swf”被提取，點擊【確定】保存

1.將Excel07版中宏的安全級別降低。