不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

word.application创建document出错，大家快来帮忙啊

楼主crimson1128（crimson）2004-09-03 21:39:45 在 Web 开发 / ASP 提问

估计不是什么太大的问题，但是就是解决不了，郁闷。。。
１、服务端

<%
set word_app=server.createobject("word.application")
set word_doc=word_app.documents.add '此句出错
......
　 ......
......
word_app.quit
set word_app=nothing　

%>

其中，set word_doc=word_app.documents.add 出错，于是我就
response.write err.description

提示说是“无法打开宏存储”，不理解究竟是怎么回事，有没有曾经遇到过此类问题的帮我解答一下？

２、客户端

......
<script language=javascript>
var word_app_js=new ActiveXObject("word.application") '这句也报错
......
</script>
......
　　刚写了一句就说有错，无穷郁闷，浏览器提示错误：不能创建automation对象。
但是打开进程管理器，却看到winword.exe已经在运行了(在此之前绝对没有运行word),
而且office是刚装上去的，运行很正常，应该没有问题。dcomcnfg.exe中也给了权限，
浏览器的安全设置级别调 low 了也没有用

兄弟们，help!

问题点数：0、回复次数：17Top

1 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2004-09-03 22:01:08 得分 0

你有什么放火墙没？？Top

2 楼crimson1128（crimson）回复于 2004-09-03 22:06:24 得分 0

以前装了瑞星，不过卸掉也没有用，问题如故Top

3 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2004-09-03 22:20:45 得分 0

我有句程序：objExcelApp = CreateObject("Excel.Application")
运行是程序说：ActiveX 部件不能创建对象: 'Excel.Application'

怎么解决这个问题啊？？？？？在线，急！！！！
---------------------------------------------------------------

解决方法：
1、这是因为您的机器禁止了所有的 ActiveX, 一般将 IE 的安全模式设为“中”即可。
2、如果第一种方法还是解决不了问题，那么请用第二种：
运行“DCOMCNFG”，在“应用程序”页中选“ms Excel 应用程序”"属性"->“安全性”->三项都选"使用自定义访问权限",添加“Everyone”.问题搞定！
了Top

4 楼crimson1128（crimson）回复于 2004-09-03 22:26:25 得分 0

我在客户端一直就没有成功的生成excel,在服务端倒是很顺利
原来以为word会有些类似，不料一头都没成。。。。。。。

楼上说的两种方法以前我都试过了，没见效。
不过还是要感谢兔子的支持。顺便套个近乎，我也姓刘Top

5 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2004-09-03 22:30:30 得分 0

你启动word的宏看看…………Top

6 楼crimson1128（crimson）回复于 2004-09-03 22:32:18 得分 0

启用宏很正常，录制新宏业没有问题，运行也不出错。。。。
Top

7 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2004-09-03 22:35:20 得分 0

……………………………………………………偶也不知道了………………Top

8 楼crimson1128（crimson）回复于 2004-09-03 22:38:37 得分 0

呵，希望有更高的高手出现来帮我们Top

9 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2004-09-04 08:32:52 得分 0

On Error Resume Next
Set objApp = server.CreateObject("Word.Application")
Response.Write Err.Description

该句执行结果为：006~ASP 0177~Server.CreateObject 失败~服务器运行失败。

objApp 对象不能生成。是不是IIS或DCOM的配置问题，还是其他的问题？
请那位大侠指点迷经！
---------------------------------------------------------------

解决方法：
1、在WIN2000任务栏的“开始”—>"运行"中输入“DCOMCNFG”，然后运行之；
2、选择“应用程序”页下的“Microsoft Word 文档”;
3、选择“属性”—>"安全性"的三个单选栏中都选“使用自定义访问权限”—>"编辑"—>"添加"—>"Everyone"—>"确定"，
4、一切搞定！
Top

10 楼crimson1128（crimson）回复于 2004-09-04 22:20:09 得分 0

keep on trying,keep on failing......Top

11 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2004-09-04 22:23:03 得分 0

偶晕之………………你用VBA呢？？Top

12 楼crimson1128（crimson）回复于 2004-09-04 22:26:52 得分 0

那就麻烦给段代码看看吧Top

13 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2004-09-04 22:40:20 得分 0

Set cbFormEdit = cbar.Controls.Add(msoControlButton)
With cbFormEdit
.BeginGroup = True
.Tag = "WizardEdit"
.OnAction = "RunWizardAgain"
.FaceId = 1099
.Caption = "Edit Info"
.TooltipText = "Edit the contract information"
.Style = msoButtonIconAndCaptionBelow
End With

Top

14 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2004-09-04 22:42:27 得分 0

Sub DisplayComments()
Dim objPara As Paragraph
Dim objComment As Comment
Dim strRemarks As String
For Each objPara In ActiveDocument.Paragraphs
strRemarks = ""
For Each objComment In objPara.Range.Comments
If objComment.Scope _
.InRange(Range:=objPara.Range) Then
If Len(strRemarks) = 0 Then
strRemarks = objComment.Range.Text
Else
strRemarks = strRemarks & ", " & _
objComment.Range.Text
End If
End If
Next objComment
If Len(strRemarks) <> 0 Then _
Debug.Print strRemarks
Next objPara
End SubTop

15 楼aspczlover（你的骄傲...）回复于 2004-09-06 15:51:55 得分 0

１、服务端
set obj=getobject("e:\mydoc.doc","word.document.8")
obj.application.visible=true
set obj=nothingTop

16 楼aspczlover（你的骄傲...）回复于 2004-09-06 15:54:51 得分 0

２、客户端

浏览器－工具－internet选项－安全－自定义级别－对没有标记为安全activex控件初始化和脚本运行改为“启用”Top

17 楼wyp0623（听风雨）回复于 2004-10-10 16:56:21 得分 0

我也一样，什么解决啊Top