【wordVBA】[页面设置的代码
Sub 页面设置()
Selection.WholeStory '选中整个文档
With Selection.Font
.NameFarEast = "仿宋_GB2312"
.NameAscii = "Times New Roman"
.Size = 16 '字号三号
End With
With ActiveDocument.PageSetup
.Orientation = wdOrientPortrait '将纸张方向设置为纵向
'设置上边距为3.7厘米,下边距为3.5厘米,左边距为2.8厘米,右边距为2.6厘米,装订线距离为0。
.TopMargin = CentimetersToPoints(3.7)
.BottomMargin = CentimetersToPoints(3.5)
.LeftMargin = CentimetersToPoints(2.8)
.RightMargin = CentimetersToPoints(2.6)
'将页眉距离设置为1.5厘米,页脚距离设置为1.75厘米
.HeaderDistance = CentimetersToPoints(1.5)
.FooterDistance = CentimetersToPoints(2.5)
'页面大小设置:将页面大小设置为21厘米 × 29.7厘米
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
'奇偶页页眉页脚相同,第一页页眉页脚也和其他页不同
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = ture
.CharsLine = 28 '设置每行所包含的字符数?
.LinesPage = 22 '设置每页所包含的行数?
End With
With Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 28.8
.FirstLineIndent = CentimetersToPoints(0.35)
.SpaceBefore = 0 '设置段落上方的间距为0
.SpaceAfter = 0 '设置段落下方的间距为0
.CharacterUnitLeftIndent = 0 '设置段落左侧缩进为0个字符
.CharacterUnitRightIndent = 0 '设置段落右侧缩进为0个字符
.CharacterUnitFirstLineIndent = 2 '设置段落第一行缩进为2个字符
.LineUnitBefore = 0 '设置段落前面的间距为0行高
.LineUnitAfter = 0 '设置段落后面的间距为0行高
End With
End Sub