Checkbox 使用VBScript在word文档中选择内容控件的步骤

我有一个word文档，它在文档中的不同位置有多个复选框/单选按钮，需要根据用户输入（我通过InputBox而不是下拉菜单计划）启用这些复选框/单选按钮。请告诉我如何使用VBScript通过编程实现这一点。

比如，我在word文档中添加了4个内容控件（复选框）。因此，以下几行将基于userinput在第一次遇到的基础上检测内容控件

Reboot_Y_N = MsgBox ("Do you require reboot (Y/N)?",vbQuestion + vbYesNo,"Reboot")
If Reboot_Y_N = vbYes Then
    ObjDocImp.ContentControls.Item(1).Checked = True
    ObjDocImp.ContentControls.Item(3).Checked = True
    ObjDocImp.ContentControls.Item(5).Checked = True
    ObjDocImp.ContentControls.Item(7).Checked = True
      Else
    ObjDocImp.ContentControls.Item(2).Checked = True
    ObjDocImp.ContentControls.Item(4).Checked = True
    ObjDocImp.ContentControls.Item(6).Checked = True
    ObjDocImp.ContentControls.Item(8).Checked = True
End If