QUIEN QUIERE SER MILLONARIO EN POWER POINT

ARCHIVOS A DESCARGAR

Read More

Extrar archivo swf

Extraer un archivo swf o flash de Word y Excel

joboraga

-12 de Mayo de 2012

HOLA 

Este tutorial te enseñará a extraer un Archivo Flash o .swf de tus archivos de Word y Excel 
Iniciemos. 

1. Presionamos Alt + F11 



2. Hacer Clik en ver código fuente. 



3. En el Recuadro que nos apareció colocamos el siguiente código (copiamos exactamente como está): 

Sub ExtractFlash() 
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 
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 
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 Flash as [ " & tmpFileName & " ]" 
End Sub 

5. Presionamos F5 y nos aparecerá la ventana donde está guardado el archivo .doc, .xls, pptx, etc, donde está incrustado el flash y lo seleccionamos. 



6. Nos aparecerá un mensaje donde nos confirma que ya se creo el archivo .swf. 

 

Read More