请各位大侠帮忙看看这段代码（VBScript）,急急急急急急－－在线等待!
请各位大侠帮忙看看这段代码（VBScript）主要是用于生成word文件的。
<SCRIPT LANGUAGE=vbscript>
<!--
' 定义对象变量。
Sub MakeWWord_onclick
Dim wdApp
Dim wdDoc
Set wdApp = GetObject("", "Word.Application")
Set wdDoc = wdApp.Documents.Open("D:\ydmis\ydmis\docroot\Watano.doc")
'将打开文档作为当前活动文档
Set wdDoc = wdApp.ActiveDocument
wdApp.Visible = True
。。。。。
没有问题啊。你安装office2000没有啊
<SCRIPT LANGUAGE=vbscript>
<!--
' 定义对象变量。
Sub MakeWWord_onclick
Dim wdApp
Dim wdDoc
Set wdApp = GetObject("", "Word.Application")
Set wdDoc = wdApp.Documents.Open("c:\aa.doc")
Set wdDoc = wdApp.ActiveDocument
wdApp.Visible = True
End Sub
</script>
<input onclick="VBscript:MakeWWord_onclick" type=button value="open">
下面的方法举例说明了在HTML页面里如何调用本机的应用程序MS-WORD，并把它置为编辑状态：
<HTML>
<script>
var wrd=new ActiveXObject("Word.Application")
wrd.visible=true
alert("您的"+wrd.Application.Caption+"安装路径为：\n"+wrd.Application.Path+"\n版本号是："+wrd.Application.version+"\n注册使用者是："+wrd.Application.UserName)
wrd.Documents.Add()
//wrd.Documents.Open("c:\\exam.doc")
wrd.Selection.TypeText("This is some text.")
wrd.Application.Activate()
wrd.ActiveDocument.SaveAs("c:\\exam111.doc")
wrd=null
</script>
</HTML>
