在WORD内如何添加滚动字幕？_IT百科

打开或者新建一个word文档，将光标定位于想要插入滚动文字的行，鼠标右键单击工具栏，在d出的快捷菜单中选择“web工具箱”，打开“web工具箱”控件面板（如图1），单击“滚动文字”按钮，打开滚动文字设置窗口，在“请在此键入滚动文字”下面的文本框中输入你要添加的文字，在“方式”下拉框中有“滚动”、“滑行”和“摇摆”三种方式供你选择，在“方向”列表框中可以选择滚动方向是“从左到右”还是“从右到左”，此外还可以设置“背景颜色”和“循环次数”，最后，拖动“速度”下的滑块调节好文字的滚动速度，单击“确定”按钮退出即可看到效果了。

你所说的字幕代码如下：

你把代码复制到记事本里，另存为html文件，即可双击查看效果

使用方法：把body标计之间的代码复制到你想显示的地方。

<HTML>

<HEAD>

<TITLE>字幕效果代码 by yueliang</TITLE>

</HEAD>

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+int(dy):dy=dy+dy/vs else dy=1

mm=mm&m:w1.innerHTML=mm&c:p=p+1:if p<=len(t)+1 then SetTimeOut "tp",16+tmp else w.scroll="yes"

end sub

sub window_onload()

w.scroll="yes"

w.bgcolor="#A0A0A0"

t=w0.innerHTML

end sub

</SCRIPT>

<font>以下就是你要填写的文字</font>

给你告:<br>

多吃些粗粮.<br>

给别人去做<br>

熟记你喜欢的诗歌<br>

不久。<br>

无论请真心实意。<br>

无论何时的眼睛。

给你告:<br>

多粮.<br>

给别人且用心去做<br>

熟记诗歌<br>

不要轻不要想睡多久就睡多久。<br>

无论何“我爱你”，请真心实意。<br>

无论何着对方的眼睛。

给你告:<br>

多吃些粗粮.<br>

给别做<br>

熟记诗歌<br>

不睡多久。<br>

无论何意。<br>

无论何眼睛。

</DIV>

</BODY>

</HTML>

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/bake/7940533.html

在WORD内如何添加滚动字幕？

发表评论

评论列表（0条）