请各位大侠帮忙看看这段代码（VBScript），急急急急急急－－在线等待！

请各位大侠帮忙看看这段代码（VBScript）主要是用于生成word文件的。

 1<script language="vbscript">   
 2<!--   
 3' 定义对象变量。   
 4Sub MakeWWord_onclick   
 5Dim wdApp   
 6Dim wdDoc   
 7Set wdApp = GetObject("", "Word.Application")   
 8Set wdDoc = wdApp.Documents.Open("D:\ydmis\ydmis\docroot\Watano.doc")   
 9'将打开文档作为当前活动文档   
10Set wdDoc = wdApp.ActiveDocument   
11wdApp.Visible = True   
12。。。。。   
13\---------------------------------------------------------------   
14  
15没有问题啊。你安装office2000没有啊   
16  
17<SCRIPT LANGUAGE=vbscript>   
18<!--   
19' 定义对象变量。   
20Sub MakeWWord_onclick   
21Dim wdApp   
22Dim wdDoc   
23Set wdApp = GetObject("", "Word.Application")   
24Set wdDoc = wdApp.Documents.Open("c:\aa.doc")   
25  
26Set wdDoc = wdApp.ActiveDocument   
27wdApp.Visible = True   
28End Sub   
29</script>

1<input onclick="VBscript:MakeWWord_onclick" type="button" value="open"/>

---------------------------------------------------------------

下面的方法举例说明了在HTML页面里如何调用本机的应用程序MS-WORD，并把它置为编辑状态：

 1<html>
 2<script>   
 3var wrd=new ActiveXObject("Word.Application")   
 4wrd.visible=true   
 5alert("您的"+wrd.Application.Caption+"安装路径为：\n"+wrd.Application.Path+"\n版本号是："+wrd.Application.version+"\n注册使用者是："+wrd.Application.UserName)   
 6wrd.Documents.Add()   
 7//wrd.Documents.Open("c:\\\exam.doc")   
 8wrd.Selection.TypeText("This is some text.")   
 9wrd.Application.Activate()   
10wrd.ActiveDocument.SaveAs("c:\\\exam111.doc")   
11wrd=null   
12</script>
13</html>