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

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

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

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

源代码:

如果不想也可以用一个工具,百度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  

小林子打字好辛苦,麻烦转载注明: 转载自林枫紫涵

本文链接地址: http://www.lfzh.org/pzword.html

作者: admin