试卷制作( 三 )
试卷的正文格式设置完成,就要设置试卷标题格式了。能常我们可以把试卷标题设置成小二字号,华文中宋字体。并要求试卷标题居中显示。
"======================================================================================================================== "========================================================================================================================
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