【无标题】

【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