WORD中插入ActiveX控件下的多个CheckBox控件，如何判断是否为TRUE?

nowarmy

老师们，您们好！

请教个问题：
WORD中插入ActiveX控件下的多个CheckBox控件，如何判断是否为TRUE?
如果有1到10个CheckBox控件，有的选中，有的没选中。如何判断？
VBA代码如何编写？请老师们指导一下，万分感谢！

nowarmy

增加点难度，请老师们解答下。感谢各位。
根据复选框为True时计算表格中第3列的数据。并填充到第3列的最后一个单元格中。
请看附件。

zhanglei1371

nowarmy

感谢老师的解答。

gwjkkkkk

Option Explicit
Sub test()
    Dim inLineShp As InlineShape, n&, k&
   
    Application.ScreenUpdating = False

    With ActiveDocument
        With .Tables(1)
            For k = 2 To .Rows.Count
                For Each inLineShp In .Cell(k, 4).Range.InlineShapes
                    If Not inLineShp.OLEFormat Is Nothing Then
                        If inLineShp.OLEFormat.Object.Value = True Then
                            n = n + Left(.Cell(k, 3).Range.Text, Len(.Cell(k, 3).Range.Text) - 2)
                        End If
                    End If
                Next
            Next k
        End With
    End With
   
    MsgBox n
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

参与一下。。。

nowarmy

非常感谢老师的解答。