对于一名人民教师来说，备课、讲课已经非常辛苦，为了提高孩子们的成绩，出套试卷，搞个测试，促进学生加油学习，更是家常便饭。但试卷中一些格式设置，尤其是客观题的答案部分，出试卷时，得有一套包括答案的完整试卷，方便校对；学生考试得用一套不含答案的试卷；改卷时，又还得有一份只有答案的试卷。要整理这些内容，完全是体力活，得重复不停地进行格式设置或删除等操作，会耗费了大量精力，稍不注意，还会出错。
今天，小编我就来教大家两招，让格式设置、试卷整理不再辛苦。
一、选择题选项编号的设置
选择题一般有四个选项，出题时，我们通常会在题干下输入“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
喜欢这类文章就关注我：“空中的纸飞机”或我的专题：高效率办公吧！
网友评论