Word复选框点击触发宏报错‘Object is required’求助

错误根源 #

你直接用CheckBox1.Value引用复选框的方式不对——Word文档内的复选框（非用户窗体控件）无法通过名称直接调用，必须通过对应的对象集合（Shapes或ContentControls）定位，这才导致了“对象未找到”的错误。

分场景修复代码 #

场景1：使用表单控件复选框（旧式表单控件） #

如果你的复选框是通过「开发工具→控件→旧式工具→表单复选框」插入的，用以下代码：

Public Sub CheckBox1_Click()
On Error GoTo ErrorHandler

Dim tbl As Table
Dim chkBox As Shape
Set tbl = ActiveDocument.Tables(2)
' 通过形状名称获取表单复选框
Set chkBox = ActiveDocument.Shapes("CheckBox1")

If chkBox.OLEFormat.Object.Value = True Then
    tbl.Cell(7, 1).Range.Text = "input1"
Else
    tbl.Cell(7, 1).Range.Text = ""
End If

Exit Sub

ErrorHandler:
MsgBox "Error: " & Err.Description
End Sub

注意：右键复选框→「格式形状→开发工具」，确认名称确实是CheckBox1。

场景2：使用内容控件复选框 #

如果你的复选框是通过「开发工具→控件→内容控件→复选框」插入的，用以下代码：

Public Sub CheckBox1_Click()
On Error GoTo ErrorHandler

Dim tbl As Table
Dim chkBox As ContentControl
Set tbl = ActiveDocument.Tables(2)
' 通过Title属性定位内容控件（需提前在控件属性里把Title设为CheckBox1）
Set chkBox = ActiveDocument.ContentControls.Item("CheckBox1")

If chkBox.Checked = True Then
    tbl.Cell(7, 1).Range.Text = "input1"
Else
    tbl.Cell(7, 1).Range.Text = ""
End If

Exit Sub

ErrorHandler:
MsgBox "Error: " & Err.Description
End Sub

注意：右键内容控件→「内容控件属性」，设置Title为CheckBox1。

额外检查项 #

• 确认文档内存在第2个表格（Tables(2)），否则会触发表格不存在的错误。
• 如果你的复选框是在用户窗体里，原代码写法是对的，但显然你是在文档页面内插入的控件，所以按上述方案修改。

内容的提问来源于stack exchange，提问作者buzzed