不要温和的走进那个良夜
Do not go gentle into that good night

技术宅改变世界-word视频制作

psb之前在优酷上看到一个视频,用word做的一段动画,发现居然不是用的flash插件等类似工具,而是用的字符集来完成的,略显犀利啊,于是我也尝试的做了一张图,视频就不做了(电脑受不了)原理差不多

[youku w=610 h=420]XMTY0MDUxNDgw[/youku]

具体做法是这样的,首先要把视频转换成图片,这里推荐用KMPlayer

打开KMPlayer右击-捕获-画面高级捕获,设置里面的参数,选择bmp格式,质量随意,但是图片不能太大,而且一定要注意选择连续跟每秒的帧数,一般是10-12帧就好了,太多了会卡

然后就是需要用一段C代码,bmp转换txt 这里代码太多了就只贴出下载地址好了

源代码:[Downlink href=”http://pan.baidu.com/share/link?shareid=3192584583&uk=822635293″]download bmptotxt.zip[/Downlink]

如果不想也可以用一个工具,百度Image2Html

image2html是可以转换为彩色的,而代码的就是灰度的

然后是word的排版

翻页代码

 

工具-宏-Visual Basic编辑器,复制下面代码进去

  1. Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)   
  2.   
  3.     
  4.   
  5. Sub Play()   
  6.   
  7. Pages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)   
  8.   
  9. For i = 1 To Pages – 1  
  10.   
  11. Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name:=“”  
  12.   
  13. Sleep (75)   ‘间隔时间,是根据具体的效果慢慢调整的   
  14.   
  15. Next i   
  16.   
  17. End Sub  

然后去掉word语法错误提示,点击宏里面的play运行

后期添加声音用MP3 To Wave类似工具

以下是添加音乐的版本

  1. Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)   
  2. Private Declare Function PlaySound Lib “winmm.dll” Alias “PlaySoundA” (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long   
  3. Sub Play()   
  4.   
  5. Pages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)   
  6. PlaySound “c:\\mkxdcp.wav”01 Or &H20000 ‘这里音乐文件路径   
  7. Sleep (250)   
  8. For i = 1 To Pages – 1  
  9.   
  10. Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name:=“”  
  11. Sleep (70)   ‘间隔时间,是根据具体的效果慢慢调整的   
  12.   
  13. Next i   
  14.   
  15. Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=1, Name:=“” ‘跳到第一页   
  16.   
  17. End Sub  
赞(0)
未经允许不得转载:林枫紫涵 » 技术宅改变世界-word视频制作

评论 6

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址
  1. #3

    佩服~想知道word文档和原视频比较,哪个内存大= =

    欣欣5年前 (2013-08-18)回复
    • word文档不仅占用空间大很多,而且非常吃内存,之前做了个简单地我的旧电脑一度打开就假死,设想你开一个100MB的TXT文本文件

      admin5年前 (2013-08-18)回复
  2. #2

    改变世界就靠你们了- –

    泰国清新电影6年前 (2013-06-23)回复
    • @泰国清新电影: 😮 确实很清新啊,不过这名字不大好- -看着像广告,差点因为这个我没点进去看,话说发现自己亮了,我一度以为会有个鬼屋蹦出来

      admin6年前 (2013-06-23)回复
  3. #1

    我擦 这个不科学

    蛋疼哥6年前 (2013-06-17)回复