では、ずばりな回答に。 HEAD内に <SCRIPT LANGUAGE="VBScript"> <!--// Dim counter, txt, txt_len, timerID Sub Window_onLoad() txt = Text.innerHTML txt_len = Len(txt) counter = 1 timerID = Window.SetInterval("typewriter()", 文字を表示する速さを半角で。200がおすすめ) End Sub Sub typewriter() Dim cur If counter > txt_len Then cur = "" Window.ClearInterval(timerID) Else cur = "<font color='タイピングしてる文字の色'>タイピングしてる文字の右に表示されるもの。_などがおすすめ</font>" End If Text.innerHTML = Left(txt, counter) & cur counter = counter + 1 End Sub --> </SCRIPT> を入れて、任意のBODY内に <SPAN id="Text">ここにタイピングさせたい文字</SPAN>