Word VB，清除所有选中的字段

Question

我有一个单词，包含15个以上的VB表单和20-50个CheckBoxes。 我如何清除（如果他们被抄）所有活动形式的CheckBox，而不必写每个CheckBox的名称？

谢谢

Answer 1

此代码可以完成这项工作。它必须放在UserForm的代码表中。

Private Sub ClearCheckBoxes()

    Dim Ctl As MSForms.Control

    For Each Ctl In Me.Controls
        If TypeName(Ctl) = "CheckBox" Then Ctl.Value = False
    Next Ctl
End Sub