收藏 分销(赏)

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

上传人:仙人****88 文档编号:6090519 上传时间:2024-11-27 格式:DOC 页数:2 大小:28.50KB 下载积分:10 金币
下载 相关 举报
代码制作试卷(七)——设置一级目录格式.doc_第1页
第1页 / 共2页
代码制作试卷(七)——设置一级目录格式.doc_第2页
第2页 / 共2页
本文档共2页,全文阅读请下载到手机保存,查看更方便
资源描述
试卷制作(七) 在试卷制作中,每个大题通常用中文数字“一”、“二”等来编写序号,这类目录通常称为一级目录。在设置这类目录时,一般设置成五号黑体字。以下代码作了部分注释,可以自行添加。 '======================================================================================================================== '======================================================================================================================== 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
展开阅读全文

开通  VIP会员、SVIP会员  优惠大
下载10份以上建议开通VIP会员
下载20份以上建议开通SVIP会员


开通VIP      成为共赢上传

当前位置:首页 > 教育专区 > 小学其他

移动网页_全站_页脚广告1

关于我们      便捷服务       自信AI       AI导航        抽奖活动

©2010-2026 宁波自信网络信息技术有限公司  版权所有

客服电话:0574-28810668  投诉电话:18658249818

gongan.png浙公网安备33021202000488号   

icp.png浙ICP备2021020529号-1  |  浙B2-20240490  

关注我们 :微信公众号    抖音    微博    LOFTER 

客服