28,391
社区成员
发帖
与我相关
我的任务
分享如何在脚本中创建word.Application 对象？
<script language="vbscript">
function wordTest()
' On Error Resume Next
Dim wdApp
Set wApp = CreateObject("Word.Application")
If Err.number > 0 Then
Alert "没法保存为Word文件,请正确安装Word97"
else
wApp.visible = True
wApp.Documents.Open "C:\Documents and Settings\zbwang\桌面\a1.doc"
End Function
</script>
在脚本中，这么写，会报告activeX无法创建word.Application对象的错误。但在asp中运行没有问题，很是奇怪，又郁闷了
function wordTest()
' On Error Resume Next
Dim wdApp
Set wApp = CreateObject("Word.Application")
If Err.number > 0 Then
Alert "没法保存为Word文件,请正确安装Word97"
else
wApp.visible = True
wApp.Documents.Open "C:\Documents and Settings\zbwang\桌面\a1.doc"
End Function
</script>
在脚本中，这么写，会报告activeX无法创建word.Application对象的错误。但在asp中运行没有问题，很是奇怪，又郁闷了
...全文
请发表友善的回复…
发表回复
自然安静 2003-09-12
- 打赏
- 举报
把IE的 工具->Internet选项->安全选项卡下的Internet和本地Intranet(自定义级别)中的activex选项全部选为启用。
富察咪咪 2003-09-12
- 打赏
- 举报
把IE的安全设置调到最低
gengwei80 2003-09-12
- 打赏
- 举报
up
llduck 2003-09-12
- 打赏
- 举报
UP!我也遇到同样问题！
tohen 2003-09-12
- 打赏
- 举报
Set wApp = CreateObject("Word.Application")
If Err.number > 0 Then
Alert "没法保存为Word文件,请正确安装Word97"
else
wApp.visible = True
wApp.Documents.Open "C:\Documents and Settings\zbwang\桌面
If Err.number > 0 Then
Alert "没法保存为Word文件,请正确安装Word97"
else
wApp.visible = True
wApp.Documents.Open "C:\Documents and Settings\zbwang\桌面
lang11zi 2003-09-12
- 打赏
- 举报
o
hacoolna 2003-09-12
- 打赏
- 举报
问题解决！！
先设置权限 http://support.microsoft.com/default.aspx?scid=kb;EN-US;288366
如果还不行，在设置IE的安全权限！
感谢net_lover的帮助！
先设置权限 http://support.microsoft.com/default.aspx?scid=kb;EN-US;288366
如果还不行，在设置IE的安全权限！
感谢net_lover的帮助！
xiye0726 2003-09-11
- 打赏
- 举报
請大家幫忙呀
xiye0726 2003-09-11
- 打赏
- 举报
怎麼辦呀
