Reply to thread

Message: <blockquote data-quote="SAN_APIIT" data-source="post: 2841003" data-attributes="member: 22533">How to get the embeded flash object1. Open a new Microsoft word document,          2. Click the Tools menu, Marco, Visual Basic Editor. You can also press the ALT+ F11 hotkey to bring up the VBA editor,          3. While in MS Visual Basic editor, click the View Code icon on the upper-left panel          4. Copy the VBA program source code at below here and paste it onto the VBA source code editor,      5. Go to the line with the file path and Change the file path to the place where u have placed the word file Eg: "C:\folder\filename.doc"         6. Press F5 to execute the VBA source code,          7. A message box appears shortly after the Excel file is selected, with a message that says where the extracted SWF Flash animation file is saved in local hard disk!'||||||| CODE TO USE |||||||Sub ExtractFlash()Dim tmpFileName As StringDim FileNumber As IntegerDim myFileId As LongDim MyFileLen As LongDim myIndex As LongDim swfFileLen As LongDim i As LongDim swfArr() As ByteDim myArr() As Byte'Enter the Word file name with path that u need to extract the flash object.tmpFileName = "C:\filename.doc"If tmpFileName = "False" Then Exit SubmyFileId = FreeFileOpen tmpFileName For Binary As #myFileIdMyFileLen = LOF(myFileId)ReDim myArr(MyFileLen - 1)Get myFileId, , myArr()Close myFileIdApplication.ScreenUpdating = Falsei = 0Do 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 IfLoopmyFileId = FreeFiletmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf"Open tmpFileName For Binary As #myFileIdPut #myFileId, , swfArrClose myFileIdMsgBox "Save the extracted SWF Flash as [ " & tmpFileName & " ]"End Sub</blockquote>

Verification: Dawasata paya keeyak thibeda?

Top Bottom