资源描述
试卷制作(二)
我们在使用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
展开阅读全文