在 Word VBA 中，如果要读取模块中窗体 （UserForm） 中复选框的值，可以按照以下步骤执行。 首先，确保用户窗体中的复选框具有明确的名称，例如"checkbox1"自"checkbox5"。然后，可以使用模块中的 UserForm 对象引用，通过访问每个复选框的 value 属性来获取其状态。 另一种简化的方法是向 UserForm 模块添加一个公共函数，该函数可以直接通过函数获取复选框的值，而无需每次都实例化 UserForm 对象。 这使您可以更轻松地读取模块表单中各个复选框的值。
您还可以在Word VBA的模块区域中读取表单中复选框的值，您需要使用UserForm对象以及复选框的名称。 下面是一个简单的示例：
假设您的用户窗体名称是"userform1"并且有五个单独命名的复选框"checkbox1"自"checkbox5"。在模块中，您可以使用以下命令读取这些复选框的值：
sub 读取复选框 （） 的值。
'声明用户窗体对象
dim myform as userform1
'实例化用户表单对象
set myform = new userform1
'通过用户窗体对象的控件名称访问复选框的值
dim valuecheckbox1 as boolean
dim valuecheckbox2 as boolean
dim valuecheckbox3 as boolean
dim valuecheckbox4 as boolean
dim valuecheckbox5 as boolean
'读取每个复选框的值
valuecheckbox1 = myform.checkbox1.value
valuecheckbox2 = myform.checkbox2.value
valuecheckbox3 = myform.checkbox3.value
valuecheckbox4 = myform.checkbox4.value
valuecheckbox5 = myform.checkbox5.value
'（可选）在即时窗口中显示复选框的值
debug.print "checkbox1 的值：" & valuecheckbox1
debug.print "checkbox2 的值：" & valuecheckbox2
debug.print "复选框 3：" & valuecheckbox3
debug.print "checkbox4 的值：" & valuecheckbox4
debug.print "checkbox5 的值：" & valuecheckbox5
'释放用户窗体对象
unload myform
end sub
确保在模块中正确声明了用户表单对象，并替换了 ** 中的对象"userform1"以及复选框的名称，以匹配您的实际设置。 这将实例化 UserForm 对象，然后使用对象引用来访问每个复选框的值。 最后，通过了debug.print该语句在即时窗口中显示这些值（可选）。
还可以通过直接引用 UserForm 的实例来获取复选框的值，而不必每次都实例化 UserForm 对象。 这可以通过向用户表单模块添加公共函数来完成。
向 UserForm1 模块添加一个公共函数，该模块返回复选框的值：
'将以下公共函数添加到 UserForm1 模块中
public function getcheckboxvalue(checkboxname as string) as boolean
getcheckboxvalue = me.controls(checkboxname).value
end function
在模块中，您可以直接调用此公共函数，而无需实例化 userform 对象：
'通过 userform1 的公共函数读取复选框的值
valuecheckbox1 = userform1.getcheckboxvalue("checkbox1")
valuecheckbox2 = userform1.getcheckboxvalue("checkbox2")
valuecheckbox3 = userform1.getcheckboxvalue("checkbox3")
valuecheckbox4 = userform1.getcheckboxvalue("checkbox4")
valuecheckbox5 = userform1.getcheckboxvalue("checkbox5")
通过调用公共函数getcheckboxvalue，您可以更轻松地获取复选框的值，而无需在模块中实例化 UserForm 对象。