注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

我是一片叶筋脉是森林我是一滴水魂魄是海洋

爱你们,所有的人,祝福你们,所有的人。Love all of you,guys

 
 
 

日志

 
 

如何从word、excel、ppt中提取flash文件?  

2015-05-06 16:19:04|  分类: 软件教程/Excel中 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

此方法在xp、window7下具有效果。

假设你要提取的flash在ppt中:

1、新建一个word文档(后缀是.doc,而不是.docx)

2、将待提取的ppt中的flash文件复制到步骤1中所建的word文档中。建议一个flash文件一个文档。

3、新建一个excel文档,快捷键[ALT+f11]调用出【Microsoft Visual Basic for Application】窗口

image

4、按快捷键[F7],调用出【代码窗口】。粘贴如下代码

image

5、按快捷键【F5】,运行。

image

6、步骤5会弹出一个窗口,让你选择文件,那么你就可以选择步骤2中的那个word文档。

7、完成步骤6后,就将你要提取的flash文件弄出来了。

image

image

 

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
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
  评论这张
 
阅读(183)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017