Word VBA：ActiveX标签的“检测到歧义名称”
温诺格
我有一个最初在Windows 7 32位计算机上创建的Word文档，由于切换到Windows 7 64位，现在给我带来了问题。这两个系统都运行Word 2010（v14.0.7173.5000，32位）。Word文档具有许多ActiveX标签，以及一个较大的宏，该宏将每个ActiveX标签链接到Excel文档中的特定单元格。这样，我更新了Excel文件，然后运行Word宏更新了所有标签。
这是在Win7 x86计算机上打开Word文档时，ActiveX标签在VBA中的外观：
但是，在Win7 x64计算机上打开文档时，标签的末尾会重命名为“ 1”：
因为我的VBA代码本身没有更改，所以如果运行宏，则会收到错误消息“对象库无效或包含对找不到的对象定义的引用”。如果我尝试通过删除“ 1”来修复标签，则会收到“检测到歧义名称”错误消息。
如果我在标签中用额外的“ 1”重新保存文件，则在Win7 x86计算机上打开时，新标签将保留并可见。然后，同一台计算机可以删除多余的“ 1”，但是如果我尝试在Win7 x64计算机上执行相同的操作，则会再次收到“检测到歧义名称”错误消息。
有谁知道导致此问题的原因以及解决方法？
马修·金登（Mathieu Guindon）
似乎您的控件需要对其名称进行固定/更改。您可以在设计模式下手动执行此操作。
或者，您可以更新代码，以代替此：
ThisDocument.ai_oos_01.Caption = "whatever"
你来做这件事：
FixControlNameAndSetCaption "ai_oos_01", "whatever"
只需抓取以下过程并将其放入标准模块（例如Module1）：
Public Sub FixControlNameAndSetCaption(ByVal controlName As String, ByVal newCaption As String)
Dim wordShape As InlineShape
For Each wordShape In ThisDocument.InlineShapes
With wordShape.OLEFormat.Object
If Left$(.Name, Len(controlName)) = controlName Then
If .Name <> controlName Then .Name = controlName
.Caption = newCaption
Exit Sub
End If
End With
Next
End Sub
现在，如果控件完全.Name匹配指定的控件controlName，则.Caption只会更改（这是您的代码当前应该执行的操作）。如果没有那个讨厌的数字后缀，则控件.Name 将与指定的控件匹配，则它将控件重命名为指定的控件，从而有效地“治愈”了控件的名称。controlName controlName
但是，如果您有合法的/期望的控件名称Foobar01和Foobar012，那么除了强烈建议您在命名事物时避免使用数字后缀，并始终给它们起有意义的/描述性的名称之外，我没有其他解决方案。
不ThisDocument.ai_oos_01直接引用的含义是，如果以某种方式再次重命名了对象，则代码仍然可以编译并运行（我怀疑文档损坏，或者有人复制了所有控件和/或删除了原始控件，这可能是偶然的）。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
在Word VBA中检测其中包含“-”的单词
- 2
通过 VBA 宏更改 Word 中 ActiveX 控件字段的值
- 3
vba Word在Msgbox中显示多个标签
- 4
VBA WORD：想要获取标签之间的文本
- 5
Word对象中的Word VBA范围
- 6
Word VBA行长约束
- 7
VBA Word异步执行
- 8
从Word到Excel的VBA
- 9
CrossReference的Word VBA
- 10
VBA Microsoft Word
- 11
Word中的VBA阵列
- 12
Word VBA多表选择
- 13
Word VSTO - 向 Word 文件添加标签
- 14
从Excel将VBA插入Word
- 15
Word VBA中的条件机制
- 16
Excel VBA退出Word文档
- 17
VBA Word的重复删除无效
- 18
插入表格标题VBA Word
- 19
Word VBA打印整个文档
- 20
Word VBA查找/替换问题
- 21
Word 2010 VBA中的InputBox
- 22
Word中的条件替换VBA
- 23
从Word VBA阻止Excel提示
- 24
Word VBA中的嵌套IF字段
- 25
Word VBA - 表格合并问题
- 26
VBA MS Word 表格创建
- 27
Word VBA删除带有特定标签的内容控件
- 28
VBA Word：在Word文档中找到的文本之前插入文本
- 29
在Word模板（VBA）中从关闭的Word文档中检索文本
我来说两句