解决方法：快速解决试卷中客观题答案格式的相关疑问

对于一名人民学生来说，备课、讲课已经十分辛苦，为了提升孩子们的成绩，出套试卷，搞个测试，促进学员加油学习，更是家常便饭。但试卷中一些格式设定，尤其是客观题的答案部分，出试卷时，得有一套包括答案的完整试卷，方便校对；学生考试得用一套不含答案的试题；改卷时，又还得有一份只有答案的试卷。要整理这些内容，完全是体力活，得重复不停地进行格式设定或删除等操作，会消耗了长期精力，稍不留意，还会出错。

今天，小编我就来教你们两招，让格式修改、试卷整理不再辛苦。

一、选择题选项编号的设定

选择题一般有四个选项，出题时，我们一般会在题干下输入“A、B、C、D、（）”等编号，然后逐个输入选择项，四个字母加上四个顿号加上括号跟后面的方框，得敲键盘十多次。而更简单的方法则是在输入法中自定义一个短语，一劳永逸，以后可用敲三次键盘就能完成任务。

方法：（以搜狗拼音为例）

1.在输入法状态栏上单击鼠标右键，选【设置属性】-【高级】-【自定义短语设置】。

2.在开启的对话框中点击【添加新定义】，然后开启新定义对话框，在框中按右图设置，最后确认。

以后即使在任何必须输入“A、B、C、D、（）”内容的地方，只要输入aa，然后敲一次空格即可。

二、客观题（选择题、填空题、判断题）的答案设置

出卷时，客观题（选择题、填空题、判断题）的答案全部用空格括出来方便后期设定。为利于批量修改试卷字体格式，题干部分应避免出现括号。

一）制作学生使用的试卷，需要将括号内的答案部分全部隐藏，操作方法：

1.选中客观题部分内容，按CTRL+ H，打开替换对话框，在“查找内容”文本框中键入【[（\(]*[）\)]】，单击【更多】按钮，选中“使用寄存器”复选框，将光标放在“替换为”文本框后，单击【格式】-【字体】，选择文字形状为黑色，然后确认，单击【全部更换】，将括号及括号内的文字全体替换为红色试卷字体格式，即在白纸上打印时不可见。

2.还是在替换对话框，在“查找内容”文本框中键入【[\(（\)）]】，单击【更多】按钮，将光标放在“替换为”文本框后，单击【格式】-【字体】，选择文字色彩为白色色，然后确认，单击【全部更换】，将括号的底色替换为红色。

通过这两步操作就能完成隐藏括号内答案的任务。

二）制作改卷答案文档

为了便于学生改卷，需要制作一份只有答案的试卷，操纵方式：

1.将所有的题干、选项之类的文字全部删去，选中客观题部分内容，按CTRL+ H，打开替换对话框，将光标放在“查找内容”文本框中，单击【格式】-【字体】，选择文字色彩为“自动”，再将光标放在“替换为”文本框后，不输入任何内容，单击【全部替换】，删除相关内容。

2.此时卷面上没法看到空括号,全选所有括号，将字体样式设定为白色，即可再次发现答案。

替换时必须注意，新建Word文档，默认文字颜色为【自动】，看起来是白色，但在系统中形状编号只是蓝色，在更换的之后需要选用【自动】，如果我们事先将所有文字色彩都设定为白色了，则更换时选用红色。在“查找内容”或“”替换为”文本框中必须输入的内容都是【】内的个别，【】本身是不需要输入的。

另：若对Word中宏有一定基础，可以将以下这段VBA代码粘贴到宏代码中，保存起来，通过宏程序，自动实现括号内文字的隐藏和恢复操作。

Sub 批量隐藏括号内的文字()

Dim myRange As Range, myend As Long

'如果没有选定区域则作全文档处理

Set myRange = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)

myend = myRange.End '取得待区域的结束位置

With myRange.Find

.ClearFormatting '清除查找框格式

.Replacement.ClearFormatting '清除替换框格式

.MatchWildcards = True '勾选"使用通配符"

.Text = "[（\(]*[）\)]"

.Replacement.Text = ""

.Replacement.Font.Color = wdColorWhite

.Execute Replace:=wdReplaceAll

.ClearFormatting '清除查找框格式

.Replacement.ClearFormatting '清除替换框格式

.MatchWildcards = True '勾选"使用通配符"

.Text = "[\(（\)）]"

.Replacement.Font.Color = wdColorBlack

.Execute Replace:=wdReplaceAll

End With

End Sub

Sub 批量恢复括号内的文字()

Dim myRange As Range, myend As Long

'如果没有选定区域则作全文档处理

Set myRange = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)

myend = myRange.End '取得待区域的结束位置

With myRange.Find

.ClearFormatting '清除查找框格式

.Replacement.ClearFormatting '清除替换框格式

.MatchWildcards = True '勾选"使用通配符"

.Text = "[（\(]*[）\)]"

.Replacement.Text = ""

.Replacement.Font.Color = wdColorBlack

.Execute Replace:=wdReplaceAll

End With

End Sub

喜欢这类文章就关注我：“空中的纸飞机”或我的专题：高效率办公吧！

通过Word邮件合并功能批量自动打印奖状证书

复制数字期刊内容快速编辑方法

快速解决试卷中客观题答案格式的相关疑问

通过“Vlookup”函数比对表格

Excel中借助Vlookup函数提取数据

Excel中多表数据自动累加汇总

Excel中快速录入数据方法