引用类时：”名称已与存在的模块或工程，对象冲突”咋回事啊？

[wzh815]

做了个调用WORD的类，并用REGSVR32注册过。

但在VB中引用却说：

引用类时：”名称已与存在的模块或工程，对象冲突”咋回事啊？


请帮忙看看是什么原因？
我是DLL初学者。

[gemgama]

你所引用的类名和你的模块或工程的名发生冲突
你可以修改你的模块或工程的名来避免冲突

[sunnyfire]

出现了重复引用，或者是已存在的引用和你正引用的类有重复

[qingming81]

调用的类名与已经存在的模块名称相同。

[wzh815]

请高手赐教了。。

[since1990]

调用的类名与已经存在的模块名称相同。

修改模块名称

[wzh815]

I rename the module. Then everything is ok.

The project name is "SaveWord" and the module name is "Toword".

There is a function named "UpdateWord" in this module.

But when I write the code: set ttt = createobject(saveword.

I want to see the function name, but nothing occured. It said"未找到方法或数据成员"

What's the matter?? Help me...


The module function is as following:
===========================

Public Function UpdateWord(strarr() As Byte) As Integer

Dim Wobj As Word.Application
Dim wordDoc As Word.Document

Set Wobj = CreateObject("Word.Application")

Set wordDoc = Wobj.Documents.Open("c:\subject.doc")

Wobj.Application.Visible = False

Wobj.Selection.Find.ClearFormatting
Wobj.Selection.Find.Replacement.ClearFormatting


For i = 1 To 10
If IsNull(strarr(i, 1)) = False And strarr(i, 1) <> "" Then

strRep = strarr(i, 2)

With Wobj.Selection.Find
.Text = strarr(1, 1)
.Replacement.Text = strRep
.Forward = True
.MatchByte = True
End With

Wobj.Selection.Find.Execute Replace:=wdReplaceAll


End If

Next i



wordDoc.Save
wordDoc.Close


Set wordDoc = Nothing
Set Wobj = Nothing

toword = 1

End Function

[pigpag]

注意，也不要在DLL中用CheckBox，CommandButton，Timer之类敏感的词语