1、试卷制作（五）
试卷的第三段（日期）格式需单独设置格式，这样试卷才美观好看。
'========================================================================================================================
'========================================================================================================================
Sub 设置第三段格
2、式()
Dim rngFormat As Range '设置标题格式
Set rngFormat = ActiveDocument.Range( _
Start:=ActiveDocument.Paragraphs(3).Range.Start, _
End:=ActiveDocument.Paragraphs(3).Range.End)
With rngFormat
.Font.Name = "宋体"
.ParagraphFormat.Alignment = wdAlignParagraphJustify
'
3、Font.Bold = wdToggle
.Font.Size = 10
End With
With ActiveDocument.Paragraphs(3)
.Alignment = wdAlignParagraphCenter '标题居中
.SpaceAfter = InchesToPoints(0.1)
End With
End Sub
'========================================================================================================================
'========================================================================================================================
仁寿县黑龙滩镇杨柳小学校 唐希胜
2015-10-29
1
浙ICP备2021020529号-1 | 浙B2-20240490 
