代码制作试卷（二）——设置正文格式.doc

试卷制作（二）
我们在使用word制作试卷时，默认情况下字号为四号，床体字。我们试卷内容一般设置成五号宋体字，也可以设置成五号仿床体字，才能做到内容适中，页面美观。
'========================================================================================================================
'========================================================================================================================
Sub 设置正文格式()
Dim rngFormat As Range
Dim i As Integer
For i = 1 To ActiveDocument.Paragraphs.Count
Set rngFormat = ActiveDocument.Range( _
Start:=ActiveDocument.Paragraphs(1).Range.Start, _
End:=ActiveDocument.Paragraphs(i).Range.End)
With rngFormat
.Font.Name = "仿宋体"
.Font.Size = 12
.ParagraphFormat.Alignment = wdAlignParagraphJustify
End With
Next i
End Sub
'========================================================================================================================
'========================================================================================================================
仁寿县黑龙滩镇杨柳小学校 唐希胜
2015-10-27
1