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

试卷制作（七）

在试卷制作中，每个大题通常用中文数字“一”、“二”等来编写序号，这类目录通常称为一级目录。在设置这类目录时，一般设置成五号黑体字。以下代码作了部分注释，可以自行添加。
'========================================================================================================================
'========================================================================================================================
Sub 设置一级目录格式2()
On Error Resume Next
Application.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 RQJC
Application.ScreenUpdating = True '恢复屏幕更新
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument '返回文档首页
End Sub
'========================================================================================================================
'==============================================================================================
仁寿县黑龙滩镇杨柳小学校 唐希胜
2015-10-29
2