ASP操作Word文件的例子！！！

确实可行！！！我已经在本地的机子上试过了！！！
不过有一些代码看不懂！还望各位大虾教教我！！！
主要是opr_doc_inc.asp里面那些对dot模版的操作不懂，具体是怎样操作的？
如果各位大虾有空的话，能教教小弟一些关于调用ActiveX控件的知识就更好了！！！
感激不尽，我现在有个项目的重要技术难点就是要操作word文档！

⑴．安装Office 2000，其中Word 2000必选
⑵．设置IE中Internet的安全性：ActiveX控件和插件全部启用
⑶．设置工作目录的文件权为Internet及System读取/修改/写入
⑷．编写模版course.dot
⑸．具体代码：

###opr_doc_inc.asp

<%
Response.write "Dim Var_Num" & chr(13)
Response.write " Var_Num = 2 " & chr(13)
Response.write "Dim varstrings(2)" & chr(13)
Response.write "varstrings(0)=" & chr(34) & "起草人：" & chr(34) & chr(13)
Response.write "varstrings(1)=" & chr(34) & "日期：" & chr(34) & chr(13)
Response.write "Dim varvalues(2)" & chr(13)
Response.write "varvalues(0)=" & chr(34) &"起草人：涂海涛"& chr(34) & chr(13)
Response.write "varvalues(1)=" & chr(34) & "日期："&date()& chr(34) & chr(13)
%>

Sub instead(word)
Set myRange = word.ActiveDocument.Content
for i=0 to Var_Num - 1 
call myRange.Find.Execute(varStrings
(i),false,false,false,false,false,false,false,false,varvalues(i),2)
Next
End Sub


###opr_doc.asp

<%
'获取保存的路径
path=server.mappath("opr_doc.asp")
path=left(path,len(path)-11)
filenames=path&"test.doc"

w1="word.activedocument.saveAs"&chr(32)&chr(34)&filenames&chr(34)
w2="wApp.Documents.open"&chr(32)&chr(34)&filenames&chr(34)
%>
<script language="vbscript">
On Error Resume Next
'生成指定文件名的Word文档
Dim word
set word = CreateObject("Word.Application")
if Err.number > 0 Then
Alert "发生错误，请确认文件是否存在"
else
word.visible = False
word.documents.open "<%response.write path%>course.dot"
<%Response.write w1%>
word.documents.close
set word=nothing
end if

<!--#include file="opr_doc_inc.asp"-->

Dim wApp
Set wApp = CreateObject("Word.Application")
If Err.number > 0 Then
Alert "发生错误，请确认文件是否正确创建"
else
wApp.visible = True
<%Response.write w2%>
call instead(wApp)
set wApp=nothing
end if
</script>

效果：看看生成了doc文件吗？这个新建的doc文件和模版文件有什么区别？起草人和日
期发生了变化了吗？保存一下，看看新生成的doc文件的内容。
--
是不是从你拔起石中剑后，我们就仅能以君臣相交？
我们是最相互信赖的伙伴，共同誓言以我天下第一剑士的威名、
以你撼动人心的领导气量，建造我们的王国。
“为彼此奉献牺牲使我们自由”这是圆桌武士的精神所在……