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文件的内容。
--
是不是从你拔起石中剑后,我们就仅能以君臣相交?
我们是最相互信赖的伙伴,共同誓言以我天下第一剑士的威名、
以你撼动人心的领导气量,建造我们的王国。
“为彼此奉献牺牲使我们自由”这是圆桌武士的精神所在……
  • 0
    点赞
  • 2
    收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值