代码制作试卷（七）——设置一级目录格式.doc

试卷制作（七）在试卷制作中，每个大题通常用中文数字“一”、“二”等来编写序号，这类目录通常称为一级目录。在设置这类目录时，一般设置成五号黑体字。以下代码作了部分注释，可以自行添加。=Sub 设置一级目录格式2()On Error Resume NextApplication.ScreenUpdating = False 关闭屏幕更新 For RQJC = 1 To ActiveDocument.Range(0, ActiveDocument.Range.End).Paragraphs.Count 对正文全文段落进行循环 With ActiveDocument.Paragraphs(RQJC).Range If ActiveDocument.Range(.Start, .Start + 2).Text = 一、 _ Or ActiveDocument.Range(.Start, .Start + 2).Text = 二、 _ Or ActiveDocument.Range(.Start, .Start + 2).Text = 三、 _ Or ActiveDocument.Range(.Start, .Start + 2).Text = 四、 _ Or ActiveDocument.Range(.Start, .Start + 2).Text = 五、 _ Or ActiveDocument.Range(.Start, .Start + 2).Text = 六、 _ Or ActiveDocument.Range(.Start, .Start + 2).Text = 七、 _ Or ActiveDocument.Range(.Start, .Start + 2).Text = 八、 _ Or ActiveDocument.Range(.Start, .Start + 2).Text = 九、 _ Or ActiveDocument.Range(.Start, .Start + 2).Text = 十、 _ Or ActiveDocument.Range(.Start, .Start + 2).Text = 十七、 _ Or ActiveDocument.Range(.Start, .Start + 2).Text = 十一、 _ Or ActiveDocument.Range(.Start, .Start + 2).Text = 十二、 _ Or ActiveDocument.Range(.Start, .Start + 2).Text = 十三、 _ Or ActiveDocument.Range(.Start, .Start + 2).Text = 十四、 _ Or ActiveDocument.Range(.Start, .Start + 2).Text = 十五、 _ Or ActiveDocument.Range(.Start, .Start + 2).Text = 十六、 Then 当每一段落前2个字符以“一、”开头，也就是以“一”和“、”开头的，就设置该段第一句为黑体字 .Sentences(1).Font.Bold = True 每一段第一句字体加粗 .Sentences(1).Font.Name = 黑体 ActiveDocument.Paragraphs(RQJC).OutlineLevel = wdOutlineLevel1 该段落的大纲级别变为一级大纲 End If End With Next RQJCApplication.ScreenUpdating = True 恢复屏幕更新ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument 返回文档首页End Sub=仁寿县黑龙滩镇杨柳小学校 唐希胜2015-10-292