VBA实现word页面设置 |
Sub AutoOpen() JNc9TB http://www.numino.net Dim glkDoc As Document '定义变量 jBx7Jq http://www.numino.net Set glkDoc = Application.ActiveDocument '设置为当前文档 1b5V4J http://www.numino.net With glkDoc '设置文档参数 58L2zx http://www.numino.net With .PageSetup '设置【页面设置】参数 e83H39 http://www.numino.net .Orientation = wdOrientPortrait '页面方向:wdOrientPortrait--纵向,wdOrientLandscape--横向 TT534V http://www.numino.net .PageWidth = CentimetersToPoints(21) '纸张宽21cm xlnNZ3 http://www.numino.net .PageHeight = CentimetersToPoints(29.7) '纸张高29.7cm igoPsQ http://www.numino.net .TopMargin = CentimetersToPoints(2) '上边距2cm 1NzbyH http://www.numino.net .BottomMargin = CentimetersToPoints(1.5) '下边距1.5cm CzleuZ http://www.numino.net .LeftMargin = CentimetersToPoints(2.5) '左边距2.5cm DygyX9 http://www.numino.net .RightMargin = CentimetersToPoints(1.5) '右边距1.5cm J8OtoX http://www.numino.net .HeaderDistance = CentimetersToPoints(0.5) '页眉0.5cm HO6o32 http://www.numino.net .FooterDistance = CentimetersToPoints(0.5) '页脚0.5cm 43Ql5v http://www.numino.net End With '结束【页面设置】参数设置 ehB88H http://www.numino.net .Save '保存文档参数 esU86x http://www.numino.net End With '结束文档参数设置 DPdM9E http://www.numino.net End Sub
|
|