嘿，我太懂你现在的头疼了——这种同名类库的冲突在VB6里简直是新手杀手。问题的核心就是Word库的Dictionary类和Scripting Runtime的Dictionary类重名了，编译器现在完全搞不清你要调用的是哪一个，所以才抛出"data member not found"的错误（毕竟Word的Dictionary确实没有Add方法）。

给你几个实用的解决办法，按优先级来：

1. 用全限定类名明确指定类型 #

这是最直接的解决方式，在代码里明说你要用的是Scripting.Dictionary，别让编译器瞎猜。比如：

' 别只写 Dim dict As Dictionary
Dim jsonDict As Scripting.Dictionary
Set jsonDict = New Scripting.Dictionary
jsonDict.Add "yourKey", "yourValue"

这样编译器就不会混淆两个同名类，直接定位到带Add方法的Scripting版本。

2. 调整引用顺序 #

打开VB6的「项目」菜单 → 「引用」，找到列表里的Microsoft Scripting Runtime和Microsoft Word xx.x Object Library。把Microsoft Scripting Runtime拖到Word库的上方——VB6会按照引用的先后顺序匹配同名类，这样当你写Dim dict As Dictionary时，会优先使用Scripting版本的类。

3. 给Scripting库设置专属别名（可选，更稳妥） #

如果怕以后再搞混，还可以给Scripting库设置一个独有的别名：

• 在引用对话框里，右键点击「Microsoft Scripting Runtime」，选择「属性」
• 在「别名」栏输入自定义名称，比如ScriptingLib
• 之后代码里就可以这样声明：

Dim jsonDict As ScriptingLib.Dictionary
Set jsonDict = New ScriptingLib.Dictionary

这种方式能彻底杜绝命名冲突，代码可读性也更高。

最后别忘了检查JSON.bas模块里的字典声明，确保所有用到的字典都是Scripting.Dictionary类型，别不小心用了Word的版本。

内容的提问来源于stack exchange，提问作者waseem Ahmad