では、ずばりな回答に。
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>
