代码制作试卷（七）——设置一级目录格式VIP专享VIP免费

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