使用变量循环 ActiveX 复选框

Question

我在 Word 文档中有许多 ActiveX 复选框，称为“CheckBox1”、“CheckBox2”等。

我有一个私有子，当单击按钮时，它会查看这些复选框，如果选中某些框，它会运行一个宏。如果我使用 me.CheckBox1、me.CheckBox2 等单独访问复选框，则代码可以正常工作，但我希望能够像 me.checkBox[variable] 一样运行一个贯穿它们的循环，但我无法让它工作.有任何想法吗？谢谢！

跟进： 我已经尝试了蒂姆好心放在下面的代码，但是我仍然无法以有意义的方式使用复选框。我已经输入了：

Sub checkCheckBox()

    Dim obj, i As Long
    Dim boxName As String
    
    For i = 1 To 10
        Set obj = GetControlByName(ThisDocument, "CheckBox" & i)
        boxName = obj.Name
        If ThisDocument.boxName.Value = True Then
            .... ' do something
        End If
        
    Next i

End Sub

如果我使用 ThisDocument.CheckBox1.Value 并以这种方式对其进行硬编码，但它不喜欢该变量。

Answer 1

没有直接的方法，但是你可以做一个函数来通过名字找到一个控件：

Sub Tester()

    Dim obj, i As Long
    
    For i = 1 to 10
        Set obj = GetControlByName(ThisDocument, "CheckBox" & i)
        Debug.Print obj.Name 'do something with the checkbox...
    Next i

End Sub


Function GetControlByName(doc As Document, nm As String) As Object
    Dim obj, rv As Object
    For Each obj In doc.InlineShapes
        If Not obj.OLEFormat Is Nothing Then
            If obj.OLEFormat.Object.Name = nm Then
                Set GetControlByName = obj.OLEFormat.Object
                Exit Function
            End If
        End If
    Next obj
End Function