代码制作试卷（三）——设置科目及标题格式

发布时间：2021-09-08 00:32:51 浏览数：次

　试卷制作（三）

　试卷的正文格式设置完成，就要设置试卷标题格式了。能常我们可以把试卷标题设置成小二字号，华文中宋字体。并要求试卷标题居中显示。

　"======================================================================================================================== "========================================================================================================================

　Sub 设置科目标题格式()

　 Dim rngFormat As Range "设置科目标题格式

　 Set rngFormat = ActiveDocument.Range( _

　 Start:=ActiveDocument.Paragraphs(2).Range.Start, _

　 End:=ActiveDocument.Paragraphs(2).Range.End)

　 With rngFormat

　 .Font.Name = "华文中宋"

　 .ParagraphFormat.Alignment = wdAlignParagraphJustify

　 .Font.Bold = wdToggle

　 .Font.Size = 24

　 End With

　 With ActiveDocument.Paragraphs(2)

　 .Alignment = wdAlignParagraphCenter "标题居中

　 .SpaceAfter = InchesToPoints(0.1)

　 End With

　 End Sub "======================================================================================================================== "======================================================================================================================== 仁寿县黑龙滩镇杨柳小学校

　唐希胜 2015-10-28