如何在Word VBA函数中解析字符串作为ActiveX标签对象名？

核心解决方案 #

要把字符串形式的标签名（如d_Title）解析为对应的ActiveX标签对象，需通过Word文档的OLEObjects集合获取控件实例，再传入T_Date函数。修改调用代码如下：

Call T_Date(ActiveDocument.OLEObjects(d_Title).Object, 0)

解释：OLEObjects(d_Title)获取的是ActiveX控件的容器对象，.Object才是标签控件本身，完全匹配T_Date函数对dt As Object的参数要求。

修复代码中的其他问题 #

除核心问题外，你的代码还有几处需修正才能正常运行：

1. 修正T_Date函数的类型不匹配问题 #

函数定义中p As Integer是数值类型，但原代码Case分支使用字符串（如Case "0"），会导致分支无法匹配。修改为数值判断：

Public Function T_Date(ByRef dt As Object, p As Integer)
'p=0, release the date to 01.01.1900
'p=1, for user selected date
'p=2, for the date of today

Select Case p
    Case 0 ' 改为数值0，而非字符串"0"
        With dt
            .Caption = VBA.Format("01.01.2000", "dd.mm.yyyy")
        End With
    Case 1
        With dt
            .Caption = VBA.Format(TestDate, "dd.mm.yyyy")
        End With
    Case 2
        With dt
            .Caption = VBA.Format(Date, "dd.mm.yyyy")
        End With
End Select

End Function

注意：TestDate变量需提前定义并赋值，否则会触发未定义变量错误。

2. 优化事件过程的循环逻辑 #

原代码循环10次判断控件标题，可直接从标题提取i值，避免无效循环：

Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
    Dim i As Integer
    Dim d_Title As String
    
    ' 直接从控件标题提取i值，无需循环10次
    If Left(CCtrl.Title, 4) = "Res_" Then
        i = CInt(Mid(CCtrl.Title, 5))
        d_Title = "Lb_Date_" & i
    End If

    With CCtrl
        Select Case .Range.Text ' 改为.Range.Text，避免Range对象判断误差
            Case "Choose a test result."
                .Range.Shading.BackgroundPatternColorIndex = wdRed
                .Range.Font.ColorIndex = wdWhite
                If d_Title <> "" Then ' 确保d_Title已赋值，避免空值报错
                    Call T_Date(ActiveDocument.OLEObjects(d_Title).Object, 0)
                End If
            Case "PASS"
                .Range.Shading.BackgroundPatternColorIndex = wdWhite
                .Range.Font.ColorIndex = wdGreen
                ' 改为动态匹配对应标签，而非固定Lb_Date_1
                If d_Title <> "" Then
                    ActiveDocument.OLEObjects(d_Title).Object.Caption = " by Engineer: "
                End If
        End Select
    End With
End Sub

说明：

• 用Left(CCtrl.Title, 4)快速判断是否为目标下拉框，Mid(CCtrl.Title, 5)提取数字部分转为整数i，直接生成对应标签名。
• 添加d_Title <> ""的判断，防止非目标控件触发时出现错误。

3. 实现标签的动态匹配 #

原代码固定指向Lb_Date_1，改为用d_Title动态获取对应标签，实现10组控件的统一逻辑。

验证效果 #

修改完成后，操作任意Res_i下拉框时，对应的Lb_Date_i标签会根据所选选项正确更新Caption属性。

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