快速提取PPT中嵌入的視頻和SWF文件的方法

快速提取PPT中嵌入的視頻和SWF文件的方法PPT嵌入的視頻，通常是指ppt2007及以上的版本（ppt2003版本無法內(nèi)嵌視頻），用解壓縮軟件（winrar，好壓等。。。）打開pptx文件，在:\ppt\media文件夾中應(yīng)該可以找到你要的，最好直接解壓它，分組按類型就找到了！一、快速提取PPT中嵌入的視頻文件二、快速提取PPT中嵌入的SWF文件這里以提取生日賀卡中嵌入的”生日禮物.swf”為例介紹。用“提取SWF.xls”提取嵌入PPT中的SWF文件。這個(gè)方法還沒有見到正式的命名。用MicrosoftOfficeExcel2003制作出“提取SWF.xls”，用這個(gè)文件可以提取嵌入到PPT中的SWF文件，故把“提取SWF.xls”文件作為軟件名。

（1）把Excel2003宏的安全等級降為“中”由于“提取SWF.xls”文件中使用宏，在【模塊】中加入VBA代碼，不降低宏的安全等級，“提取SWF.xls”不能正常運(yùn)行。宏的安全等級設(shè)置方法：【工具】→【宏】→【宏的安全性】→選【中】見圖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”點(diǎn)擊這里下載已經(jīng)建好的“提取SWF.xls”

2、制作“生日禮物.xls”

新建一個(gè)excel文檔，，打開該文檔，將PPT中的flash控件（ShockWaveFlashObject）復(fù)制，粘貼到excel，另存為“生日禮物.xls”,見圖1-7至圖1-9。圖1-7復(fù)制嵌入“生日禮物.swf”的flash控件圖1-8把嵌入“生日禮物.swf”的flash控件粘貼到excel。圖1-9【文件】→【另存為】之后選擇路徑，保存為“生日禮物.xls”.3、“提取swf.xls”使用方法打開“提取swf.xls”，出現(xiàn)【安全警告】，點(diǎn)擊【啟用宏】。之后點(diǎn)擊：【工具】—>【宏】—>【宏】—>【執(zhí)行】，彈出【確定要分析的offes檔】對話框，把路徑指向“生日禮物.xls”，【執(zhí)行】的結(jié)果是PPT中的SWF文件以“生日禮物.swf”被提取并保存。見圖1-10至1-14圖1-10打開“提取swf.xls”，出現(xiàn)【安全警告】，點(diǎn)擊【啟用宏】。圖1-11打開“提取swf.xls”，點(diǎn)擊：【工具】—>【宏】—>【宏】圖1-12【宏】—>【執(zhí)行】圖1-13彈出【確定要分析的offes檔】，路徑指向“生日禮物.xls”，點(diǎn)擊【打開】圖1-14PPT中嵌入的SWF就以“生日禮物.swf”被提取，點(diǎn)擊【確定】保存

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

2.新建一Excel文檔，選擇“開發(fā)工具”——啟動“VB”編輯器。（圖1）

前面介紹的方法只適用于MicrosoftOfficeExcel2003。對于使用MicrosoftOfficeExcel2007以上者，可以用以下方法操作。3.在打開的窗口中選擇“插入”中的“模塊”。（圖2）4.粘貼提取SWF的模塊代碼。（注：必須先將代碼復(fù)制在Word文檔中再粘貼到此處。（圖3）5.關(guān)閉“VB”編輯器，將文檔另存為Excel03版的工作薄格式。命名為表格1（可以隨意命名），注意必須另存為03版的格式。

6.另新建一Excel文檔，將幻燈片中插入的SWF控件復(fù)制后粘貼到文檔中。（圖4）7．將文檔另存為Excel03版的工作薄格式。命名為表格2（可以隨意命名）注意必須另存為03版的格式。8.重新打開表格1，選擇“宏”——在“宏”窗口選擇“執(zhí)行”。（圖5）9.在彈出的“確定要分析的Office文檔”窗口找到保存的表格2并打開。（圖6）10.插入PPT中的SWF文件就以Book2的名稱保存。（圖7）