| VBA实现word页面设置 |
Sub AutoOpen()
lPUNfn http://www.numino.net
Dim glkDoc As Document '定义变量
5gw8FG http://www.numino.net
Set glkDoc = Application.ActiveDocument '设置为当前文档
aXg7Ug http://www.numino.net
With glkDoc '设置文档参数
U1a3FV http://www.numino.net
With .PageSetup '设置【页面设置】参数
U3QVm5 http://www.numino.net
.Orientation = wdOrientPortrait '页面方向:wdOrientPortrait--纵向,wdOrientLandscape--横向
gXg6Gt http://www.numino.net
.PageWidth = CentimetersToPoints(21) '纸张宽21cm
8dqpnM http://www.numino.net
.PageHeight = CentimetersToPoints(29.7) '纸张高29.7cm
nuUSGO http://www.numino.net
.TopMargin = CentimetersToPoints(2) '上边距2cm
6t1EgD http://www.numino.net
.BottomMargin = CentimetersToPoints(1.5) '下边距1.5cm
oGVRLa http://www.numino.net
.LeftMargin = CentimetersToPoints(2.5) '左边距2.5cm
3E0ZWZ http://www.numino.net
.RightMargin = CentimetersToPoints(1.5) '右边距1.5cm
IZA0RX http://www.numino.net
.HeaderDistance = CentimetersToPoints(0.5) '页眉0.5cm
AnH6vz http://www.numino.net
.FooterDistance = CentimetersToPoints(0.5) '页脚0.5cm
yhAYHE http://www.numino.net
End With '结束【页面设置】参数设置
l6uGrB http://www.numino.net
.Save '保存文档参数
mf2L0o http://www.numino.net
End With '结束文档参数设置
JSdDO1 http://www.numino.net
End Sub
|
|