VBA操作WORD（三）：设置页面

2022 年 08 月 17 日

2975 次浏览

1165字数

```
Sub 设置页面(oDoc As Document)
    With oDoc.PageSetup
	.LineNumbering.Active = False
	.Orientation = wdOrientPortrait '页面方向为纵向
	.TopMargin = CentimetersToPoints(3.3) '上边距
	.BottomMargin = CentimetersToPoints(3.3) '下边距
	.LeftMargin = CentimetersToPoints(2.8)  '左边距
	.RightMargin = CentimetersToPoints(2.6)  '右边距
	.Gutter = CentimetersToPoints(0) '装订线
	.HeaderDistance = CentimetersToPoints(1.5) '页眉
	.FooterDistance = CentimetersToPoints(1.75) '页脚
	.PageWidth = CentimetersToPoints(21) '纸张宽
	.PageHeight = CentimetersToPoints(29.7) '纸张高
	.FirstPageTray = wdPrinterDefaultBin
	.OtherPagesTray = wdPrinterDefaultBin
	.SectionStart = wdSectionNewPage '节的起始位置：新建页
	.OddAndEvenPagesHeaderFooter = False '不勾选“奇偶页不同”
	.DifferentFirstPageHeaderFooter = False '不勾选“首页不同”
	.VerticalAlignment = wdAlignVerticalTop '页面垂直对齐方式为“顶端对齐”
	.SuppressEndnotes = False '不隐藏尾注
	.MirrorMargins = False '不设置首页的内外边距
	.TwoPagesOnOne = False
	.BookFoldPrinting = False
	.BookFoldRevPrinting = False '不设置手动双面打印
	.BookFoldPrintingSheets = 1 '默认打印份数为1
	.GutterPos = wdGutterPosLeft '装订线位于左侧
	.LayoutMode = wdLayoutModeLineGrid '版式模式为“只指定行网格”
    End With
End Sub
```

最后修改：2023 年 07 月 20 日