VBA实现word页面设置 |
Sub AutoOpen() TaGm3r http://blog.numino.net/ Dim glkDoc As Document '定义变量 WSwI6X http://blog.numino.net/ Set glkDoc = Application.ActiveDocument '设置为当前文档 QXDPwK http://blog.numino.net/ With glkDoc '设置文档参数 8mXBn4 http://blog.numino.net/ With .PageSetup '设置【页面设置】参数 bb49Zr http://blog.numino.net/ .Orientation = wdOrientPortrait '页面方向:wdOrientPortrait--纵向,wdOrientLandscape--横向 pZPl37 http://blog.numino.net/ .PageWidth = CentimetersToPoints(21) '纸张宽21cm RCF709 http://blog.numino.net/ .PageHeight = CentimetersToPoints(29.7) '纸张高29.7cm 6ex01h http://blog.numino.net/ .TopMargin = CentimetersToPoints(2) '上边距2cm oV9VjK http://blog.numino.net/ .BottomMargin = CentimetersToPoints(1.5) '下边距1.5cm cBUyn4 http://blog.numino.net/ .LeftMargin = CentimetersToPoints(2.5) '左边距2.5cm vpn7wq http://blog.numino.net/ .RightMargin = CentimetersToPoints(1.5) '右边距1.5cm l6CzPr http://blog.numino.net/ .HeaderDistance = CentimetersToPoints(0.5) '页眉0.5cm XgCi96 http://blog.numino.net/ .FooterDistance = CentimetersToPoints(0.5) '页脚0.5cm MDA9pl http://blog.numino.net/ End With '结束【页面设置】参数设置 2vWWMO http://blog.numino.net/ .Save '保存文档参数 03vH82 http://blog.numino.net/ End With '结束文档参数设置 6Fei89 http://blog.numino.net/ End Sub
|
|