Word VBA中如何通过变量操作文档上的ActiveX标签控件修改Caption

兄弟，我太懂你这种面对一堆重复代码头大的感觉了！你说的这个问题我之前也踩过坑，给你俩解决方案，一个简单直接，一个更优雅省事儿，看你需求选：

快速解决：用控件名称传参调用公共函数 #

如果不想搞太复杂，先给你个直接能用的办法：先写一个公共函数，然后每个标签的双击事件里只需要一行代码调用它，把自己的名字传进去就行。

1. 打开Word的VBA编辑器（按Alt+F11），在ThisDocument模块里写这个公共函数：

Public Sub UpdateLabelCaption(ctrlName As String)
    Dim inputText As String
    inputText = InputBox("请输入新的标题：", "修改标签标题")
    
    ' 判断输入不为空再修改
    If inputText <> "" Then
        ' 注意：如果你的标签是浮动在文档中的（不是嵌入段落里），把InlineShapes改成Shapes
        ThisDocument.InlineShapes(ctrlName).OLEFormat.Object.Caption = inputText
    End If
End Sub

2. 然后给每个标签的双击事件绑定调用：
   比如你的标签叫Label1，双击它进入事件代码窗口，写：

Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    UpdateLabelCaption "Label1"
End Sub

其他标签同理，只需要把Label1换成对应控件的名字就行。

优雅方案：用类模块批量绑定事件（彻底告别重复代码） #

如果标签数量特别多，一个个写双击事件太麻烦，推荐用类模块批量绑定所有标签的双击事件，一次设置终身受用：

1. 插入一个类模块：右键点击工程窗口→插入→类模块，把类模块的名字改成clsLabelHandler（在属性窗口里改Name属性），然后在类模块里写：

Public WithEvents LabelCtrl As MSForms.Label

Private Sub LabelCtrl_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim inputText As String
    inputText = InputBox("请输入新的标题：", "修改标签标题")
    
    If inputText <> "" Then
        LabelCtrl.Caption = inputText
    End If
End Sub

2. 回到ThisDocument模块，写文档打开时的初始化代码：

' 声明一个集合来保存类实例，不然事件会失效
Dim labelHandlers As New Collection

Private Sub Document_Open()
    Dim shp As InlineShape
    Dim lblHandler As clsLabelHandler
    
    ' 遍历所有嵌入段落的ActiveX标签
    For Each shp In ThisDocument.InlineShapes
        If shp.Type = wdInlineShapeOLEControlObject Then
            ' 判断是Label控件
            If TypeName(shp.OLEFormat.Object) = "Label" Then
                Set lblHandler = New clsLabelHandler
                Set lblHandler.LabelCtrl = shp.OLEFormat.Object
                labelHandlers.Add lblHandler
            End If
        End If
    Next shp
    
    ' 再遍历所有浮动的ActiveX标签（如果有的话）
    Dim shapeObj As Shape
    For Each shapeObj In ThisDocument.Shapes
        If shapeObj.Type = msoOLEControlObject Then
            If TypeName(shapeObj.OLEFormat.Object) = "Label" Then
                Set lblHandler = New clsLabelHandler
                Set lblHandler.LabelCtrl = shapeObj.OLEFormat.Object
                labelHandlers.Add lblHandler
            End If
        End If
    Next shapeObj
End Sub

这样设置后，下次打开文档，所有ActiveX标签都会自动绑定双击修改Caption的功能，不用再给每个标签写重复代码啦！

为啥你之前用Me.和Controls.不行？ #

Word的VBA和Excel不一样，文档里的ActiveX控件并不是直接在ThisDocument（也就是Me）的Controls集合里，而是嵌套在InlineShapes或Shapes集合中，必须通过OLEFormat.Object才能访问到控件本身的属性，所以直接用Me.Controls("控件名")是找不到的，这就是你之前失败的原因~

备注：内容来源于stack exchange，提问作者Damian Lee