眼下有不少好玩的小游戲都是嵌入Word,、Excel中的,，實(shí)際上游戲本身只是flash（.swf）文件,。很多朋友想把文檔里的flash文件提取出來,，但苦于沒有好的辦法,。對(duì)于doc,、xls文件,，如果其中嵌入了圖片，我們可以通過“文件”→另存為→“網(wǎng)頁文件”命令把圖像提取出來,，但這個(gè)辦法對(duì)于提取flash無效,！

其實(shí)辦法還是有的。現(xiàn)在就提供兩種解決辦法：

辦法一：

1,、下載一款16進(jìn)制編輯工具WinHex,，并安裝。
2,、打開含有Flash的Word文檔,，點(diǎn)擊“控件工具箱”的“設(shè)計(jì)模式”按鈕進(jìn)入設(shè)計(jì)模式，選擇Word中的Flash，復(fù)制粘貼到任意文件夾（或者右鍵選擇,，復(fù)制,，粘帖到任意文件夾，前提是可以右鍵選擇并能彈出包含“復(fù)制”的右鍵菜單）,，會(huì)看到一個(gè)“片段”文件,。
3、打開WinHex,，將該“片段”文件拉到WinHex中,，單擊下拉菜單“搜索”→“查找16進(jìn)制值”，搜索“465753”,，在搜索到的“465753”中的“4”位置上單擊右鍵,，選擇“選塊開始”。
4,、繼續(xù)“搜索”→“查找16進(jìn)制值”,，搜索“3A5C”，然后按住F3,，直到出現(xiàn)“3A5C未找到”,，點(diǎn)擊“是”，在最后搜索到的“3A5C”中“C”位置上單擊右鍵,，選擇“選塊結(jié)尾”,。（注：少數(shù)情況可能會(huì)搜索不到“3A5C”，則改為搜索“3A”或“5C”,，方法相同）,。
5、在選塊內(nèi)任意處點(diǎn)擊右鍵→編輯→復(fù)制選塊→進(jìn)入新文件→輸入文件名 (如×××.swf) →保存,，OK,。

辦法二（此法對(duì)絕大多數(shù)文件有效）：

1、任意打開一個(gè)excel文件（word不行?。?br>2,、點(diǎn)工具→宏→宏→在“宏名”下輸入名字（如gettFlash，不可以是數(shù)字）,；
3,、點(diǎn)右邊“創(chuàng)建”按鈕，彈出一個(gè)宏編輯界面→把下面的代碼拷貝進(jìn)自動(dòng)生成的兩行代碼之間,；

'從下面一行開始,，不包括本行——————

Dim tmpFileName As String, FileNumber As Integer
Dim myFileId As Long
Dim myArr() As Byte
Dim i As Long
Dim MyFileLen As Long, myIndex As Long
Dim swfFileLen As Long
Dim swfArr() As Byte

tmpFileName = Application.GetOpenFilename(”office File(*.doc;*.xls),*.doc;*.xls”, , “請(qǐng)選擇一個(gè)包含Flash的Office文檔”)

If tmpFileName = “False” Then Exit Sub

myFileId = FreeFile

Open tmpFileName For Binary As #myFileId

MyFileLen = LOF(myFileId)

ReDim myArr(MyFileLen - 1)
Get myFileId, , myArr()
Close myFileId

Application.ScreenUpdating = False

i = 0

Do While i < MyFileLen

If myArr(i) = &H46 Then

If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then

swfFileLen = 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 - 1

swfArr(myIndex) = myArr(i + myIndex)

Next myIndex
Exit Do
Else
i = i + 3
End If
Else
i = i + 1
End If
Loop

myFileId = FreeFile

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

Open tmpFileName For Binary As #myFileId

Put #myFileId, , swfArr

Close myFileId

MsgBox “以” & tmpFileName & “名字保存”

'到上面一行結(jié)束，不包括本行——————

4,、點(diǎn)擊本代碼窗口工具欄中的“運(yùn)行”按鈕（或按F5）→彈出打開窗口→選擇要提取flash的文件,，可以是excel文件,，也可以是word文件；
5,、會(huì)彈出提示：“以××名字保存”,。提取成功,。
6,、在源文件同一路徑下生成同名的swf文件，即Flash文件,。

當(dāng)然,，也可以保存編寫的宏文件便于以后使用。點(diǎn)保存按鈕保存,。以后再使用時(shí),，打開此文件，依次轉(zhuǎn)到“工具”→“宏”→“宏”→選擇宏的名字→執(zhí)行→重復(fù)以上4-6的步驟即可,。