通过VBA编程设置Word页边距等页面相关参数

通过vba编程快速进行word文档页面设置，也可以将相关页边距设置成弹窗，这样方便用户灵活输入确定。

Sub 设置页边距()
With ActiveDocument.PageSetup   '为当前活动文档设置页面信息
.LeftMargin = InchesToPoints(0.75)  '左边距，0.75英寸
.RightMargin = 54 '右边距，54磅
.TopMargin = MillimetersToPoints（19）    '上边距，19毫米
.BottomMargin = CentimetersToPoints(2)   '下边距，2厘米
End With
End Sub

InchesToPoints，英寸转为磅，1英寸72磅

MillimetersToPoints，把度量单位从毫米转换为磅值（1 毫米 = 2.85 磅）。

CentimetersToPoints，将度量单位由厘米转换为磅数（1 厘米=28.35 磅）。

可以根据需要使用不同的单位对页边距进行设置

更多页面信息设置请参考下面列表说明

PageSetup 对象成员

代表页面设置说明。PageSetup 对象包含文档的所有页面设置属性（如左边距、下边距和纸张大小）。

方法

属性

例：将活动文档的第一节设为横向并打印该文档，（如果没有手动插入分节符，一般只有一节）

ActiveDocument.Sections(1).PageSetup.Orientation = wdOrientLandscape ActiveDocument.PrintOut

Orientation属性的 WdOrientation 类型参数

指定页面布局方向。可以使用名称也可以使用对应值进行设置