代码制作试卷（四）——设置第一段格式.doc

试卷制作（四）

试卷的第一段格式通常设置成五号黑体字。
'========================================================================================================================
'========================================================================================================================
Sub 设置一级目录格式2()
Dim rngFormat As Range '设置标题格式
Set rngFormat = ActiveDocument.Range( _
Start:=ActiveDocument.Paragraphs(1).Range.Start, _
End:=ActiveDocument.Paragraphs(1).Range.End)
With rngFormat
.Font.Name = "黑体"
.ParagraphFormat.Alignment = wdAlignParagraphJustify
.Font.Bold = wdToggle
.Font.Size = 14
End With
With ActiveDocument.Paragraphs(1)
.Alignment = wdAlignParagraphCenter '标题居中
.SpaceAfter = InchesToPoints(0.1)
End With
End Sub

'========================================================================================================================
'========================================================================================================================
仁寿县黑龙滩镇杨柳小学校 唐希胜
2015-10-29
1