word里做字幕的方法？

来源：百度知道 编辑：UC知道 时间：2024/09/21 23:09:41
就是一句一句跳出来的上面的内容不会消失的
我很久以前看到过一个心理测试，要你先输很多人名还有歌名，然后给你的结果就是一行一行跳出来的，那个就是用word做的吗？就是http://www.mmhz.net/love/这样的，大虾能把一个一个字跳出来的网页代码告诉我吗

你所说的字幕代码如下：
你把代码复制到记事本里，另存为html文件，即可双击查看效果
使用方法：把body标计之间的代码复制到你想显示的地方。

<HTML>
<HEAD>
<TITLE>字幕效果代码 by yueliang</TITLE>
</HEAD>
<BODY topmargin=10 bgcolor="#090808" text="#FFFFFF">

<SCRIPT language=VBScript>
dim w,t,p,mm,c,mr,dy,tmp,vs:vs=5:dy=1:p=1:mr="<BR><BR><BR>":c="<font color=white><B>|"&mr:Set w = document.body
sub tp
m=mid(t,p,1):if m="" then c=mr
if m="`" then m="":mm=mid(mm,1,len(mm)-1)
if m="<" then av=instr(mid(t,p),">"):m=mid(t,p,av):p=p+av-1
if m="&" then av=instr(mid(t,p),";"):m=mid(t,p,av):p=p+av-1
tmp=100:if m="." then tmp=400 else if m="," then tmp=200 else if m=" " then tmp=200
if w.scrollHeight-w.scrollTop>w.offsetHeight then w.scrollTop=w.scrollTop