下面的代码在win2000下如何运行？
下面的代码在win2000下如何运行？
<script language="vbscript">
On Error Resume Next
Dim wApp
Set wApp = CreateObject("Word.Application")
If Err.number > 0 Then
Alert "没法保存为Word文件,请正确安装Word"
else
wApp.Documents.add
wApp.Selection.ParagraphFormat.Alignment = 1
wApp.Selection.TypeParagraph
wApp.Selection.Font.Bold = True
wApp.Selection.TypeText " 一周工作计划安排"
wApp.Selection.TypeParagraph
Dim filename
filename=InputBox("请输入要保存的word文件名及其路径！")
if filename<>"" then
wApp.ActiveDocument.SaveAs(filename)
end if
end if
</script>
在win xp下可以通过改变ie对ActiveX的限制来运行，但是在win2000下使用相同的设置却不行。可能是2000的安全级别更高，不知道要怎么设置才可以在2000下运行了？
问题点数：50、回复次数：4Top
1 楼matq2008（叶子.net）回复于 2003-03-01 11:43:04 得分 0
环境！Top
2 楼net_lover（【孟子E章】）回复于 2003-03-01 11:44:24 得分 0
安装office2000后没有问题的Top
3 楼cntoon（小椿）回复于 2003-03-02 22:04:37 得分 0
忘了说了，
应该是用2000作客户端怎么运行。
就是说把上面的代码放到一个web服务器里，
然后在win2000下用ie访问这个网页。
Top
4 楼toon82（）回复于 2003-03-18 20:05:45 得分 50
设置ie的安全选项。
将internet和intranet自定义里的有关ActiveX的选项全部设为“提示“。
Top
