VBA实现word页面设置

Last visited on 2025/6/17 11:22:21 Post by Numino
Sub AutoOpen()

Dim glkDoc As Document '定义变量

Set glkDoc = Application.ActiveDocument '设置为当前文档

With glkDoc '设置文档参数

With .PageSetup '设置【页面设置】参数

.Orientation = wdOrientPortrait '页面方向:wdOrientPortrait--纵向,wdOrientLandscape--横向

.PageWidth = CentimetersToPoints(21) '纸张宽21cm

.PageHeight = CentimetersToPoints(29.7) '纸张高29.7cm

.TopMargin = CentimetersToPoints(2) '上边距2cm

.BottomMargin = CentimetersToPoints(1.5) '下边距1.5cm

.LeftMargin = CentimetersToPoints(2.5) '左边距2.5cm

.RightMargin = CentimetersToPoints(1.5) '右边距1.5cm

.HeaderDistance = CentimetersToPoints(0.5) '页眉0.5cm

.FooterDistance = CentimetersToPoints(0.5) '页脚0.5cm

End With '结束【页面设置】参数设置

.Save '保存文档参数

End With '结束文档参数设置

End Sub