Comments on: How To Extract SWF Flash From Excel or Word

By: bharath

bharath — Wed, 07 Dec 2011 16:13:42 +0000

getting “method or data member not found” error …:(

please help me

By: mtvgp

mtvgp — Fri, 13 May 2011 20:23:42 +0000

Excellent – what a time-saver!
I had a swf in a ppt slide so I simply copied/pasted the object to an xls file, followed the instructions above with the new xls file and voila!

By: SPD

SPD — Thu, 14 Apr 2011 08:43:58 +0000

Great job,

Also, useful in the new Adobe flash file exploits using doc files.

By: Morpheus

Morpheus — Mon, 28 Mar 2011 14:02:05 +0000

Great code, thank you very much.
You may deserve to get the red capsule.

By: Ricky

Ricky — Wed, 16 Feb 2011 01:55:43 +0000

Jay, Not sure if this will go through.... It's rare to have multiple flash files in an office file, but this should get them all...

Public Sub ExtractEmbed()

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


tmpFileName = Application.GetOpenFilename("MS Office File (*.doc;*.xls), *.doc;*.xls", , "Open MS Office file")

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
            OutCount = OutCount + 1
            myFileId = FreeFile
            swfFileName = Left(tmpFileName, Len(tmpFileName) - 4) & "_" & OutCount & ".swf"
            Open swfFileName For Binary As #myFileId
            Put #myFileId, , swfArr
            Close myFileId
      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 "Save the extracted swf as [ " & tmpFileName & " ]"

End Sub

By: Ricky

Ricky — Wed, 16 Feb 2011 01:52:25 +0000

Is &H57 and &H53 the header of the swf file format?
I was hoping to extract different file types that are embedded OLE’s as well – but am not sure how to identify them.

Also, what does the &H46 indicate?

By: Rachit

Rachit — Tue, 11 Jan 2011 20:22:39 +0000

Excellent work!!!!
really very helpful!!!

Thanx a Ton!!!