<Script language="VBScript">
Sub OpenWord()
Dim Word
Dim Str="c:/a.Doc"
Dimdo
c
set Word = CreateObject("WORD.Application")
Word.Visible = True
do
c=Word.Document.Open(Str)
End Sub
</Script>
<input type="button" onclick="OpenWord" value="打开">
缺点是要打开已存在的word文档,不过可以用一个空白的文档替代。