Word在很多情况下要制作多项选择的情况，可是有很多同学知道用控件来制作多项选择的模式，但是制作的多项选择题只能照猫画虎，不能够智能的判断出多项选择题的对错，这种智能多项选择题需要添加一些VBA代码来实现。
工具/原料
Word2007软件
电脑
一、制作多项选择题内容：
1、 1、新建Word空白文档，在文档中输入选择题的标题，然后设置好字体颜色、文字大小和字体的类型，如图所示。
2、 2、单击菜单栏中的“开发工具“，并在空间窗口中单击“旧式工具”并选择“复选框”按钮，然后在文档拖拉出一个复选框。
3、 3、在拖拉出的复选框(checkbox1)上单击鼠标右键选择杨钭维程属性，打开“属性”对话框，将其中“名称”修改为“dxtA”，“Caption”后面的字符修改为题目相应选项字符(如“A.音乐”)，然后再设置“font”选项设置合适的字体、字号等。其他属性可采用默认值。
4、 4、将上面设置好的复选框复制三个，分别将名称修改为“dxtB”、“dxtC”、“dxtD”，“Caption”属性分别修改为“体育”、“美术”和“电影”。
二、制作多项选择题按钮：
1、 1、单击菜单栏中的“开发工具“，并在空间窗口中单击“旧式工具”并选择“命令按钮”按钮，然后在文档拖拉出一个命令按钮。
2、 2、在命令按钮上面单击右键选择“属性”，并将其中“名称”修改为“jg”，“Caption”后面的字符修改为题目相应文字为“结果”。
3、 3、将上面设置好的命令按钮复制1个，并将名称修改为“cx”，将Caption”后面的字符修改为题目相应文字为“重选”。
三、选择题代码编辑：
1、 1、双击“结果”按钮，进入“VisualBasic编辑器”咽疖纲掇状态，将下述代码输入到Private Sub Private Sub duopd11_Click()和End Sub代码中间：Private Sub jg_Click()If dxtA.Value = True And dxtB.Value = True And dxtC.Value = False And dxtD.Value = False ThenMsgBox "你太棒了，选择正确", vbOKOnly, "结果"ElseIf dxtA.Value = True And dxtB.Value = False And dxtC.Value = False And dxtD.Value = False Or dxtA.Value = False And dxtB.Value = True And dxtC.Value = False And dxtD.Value = False ThenMsgBox "抱歉！你选对了一个，下一次就全对了。", vbOKOnly, "提示"ElseMsgBox "选择错误！还需要继续努力啊！ "提示"End IfEnd IfEnd Sub
2、 2、双击“重选”按钮，进入“VisualBasic编辑器”咽疖纲掇状态，将下述代码输入到Private Sub Private Sub duopd11_Click()和End Sub代码中间：dxtA.Value = FalsedxtB.Value = FalsedxtC.Value = FalsedxtD.Value = False
3、 3、现在切换到文档中，单击“开发工具”里面的“设计模式”退出设计模式，此时就可以试试自己的多选题了。
4、 4、此时可以单击几个选项，然后单击“结果”按钮就可以判断出选择正确与否。
