28,391
社区成员
发帖
与我相关
我的任务
分享制作ASP组件急救！！！！高分酬谢！
本人利用VBA来将数据库中的试题转换成WORD文档。于是编写了Activex DLL组件covertodoc.dll,其中主要的代码：
Dim mydoc As Word.Document
Dim r As Range
Set mydoc = CreateObject("word.document")
With mydoc ' ****** erro line******
.Paragraphs.Item(.Paragraphs.Count).Range.InsertParagraphAfter
Set r = .Paragraphs.Item(.Paragraphs.Count).Range
r.text = text
.Paragraphs.Item(.Paragraphs.Count).Range.InsertParagraphAfter
Set r = .Paragraphs.Item(.Paragraphs.Count).Range
r.InlineShapes.AddPicture (picfilename)
.SaveAs (docfilename)
.Close
End With
Set r = Nothing
Set mydoc = Nothing
该代码在EXE工程中调试完全正确，但移植成DLL调试出错：
错误类型：
Microsoft Word (0x800A16C1)
对象已被删除。
/tytk/build/makedoc.asp, 第 13 行
即注释 ' ****** erro line****** 的行中mydoc对象出错。
请高手们帮忙诊断！！
Dim mydoc As Word.Document
Dim r As Range
Set mydoc = CreateObject("word.document")
With mydoc ' ****** erro line******
.Paragraphs.Item(.Paragraphs.Count).Range.InsertParagraphAfter
Set r = .Paragraphs.Item(.Paragraphs.Count).Range
r.text = text
.Paragraphs.Item(.Paragraphs.Count).Range.InsertParagraphAfter
Set r = .Paragraphs.Item(.Paragraphs.Count).Range
r.InlineShapes.AddPicture (picfilename)
.SaveAs (docfilename)
.Close
End With
Set r = Nothing
Set mydoc = Nothing
该代码在EXE工程中调试完全正确，但移植成DLL调试出错：
错误类型：
Microsoft Word (0x800A16C1)
对象已被删除。
/tytk/build/makedoc.asp, 第 13 行
即注释 ' ****** erro line****** 的行中mydoc对象出错。
请高手们帮忙诊断！！
...全文
请发表友善的回复…
发表回复
lang11zi 2003-09-17
- 打赏
- 举报
学习学习啊
llduck 2003-09-17
- 打赏
- 举报
设置组件服务！用户权限和交互式用户！
zykj_2000 2003-09-15
- 打赏
- 举报
你机器上的word打开看看正不正常啊，
还有看看你用的是什么版本的word啊
还有看看你用的是什么版本的word啊
zjg791015 2003-09-15
- 打赏
- 举报
回复人： wanghr100(灰豆宝宝.net)的提议我举双手赞成！！！
wanghr100 2003-09-15
- 打赏
- 举报
其实,楼主可以把解决方案贴出来.
让大家也学习学习...
让大家也学习学习...
llduck 2003-09-15
- 打赏
- 举报
该问题自己已解决！谢谢楼上各位关心！
llduck 2003-09-09
- 打赏
- 举报
服务器上注册过了
painache 2003-09-09
- 打赏
- 举报
服务器上也应该注册Word组件
moeryang 2003-09-09
- 打赏
- 举报
该为Server.CreateObject("application.word")??
