| VBA实现word页面设置 |
Sub AutoOpen()
d95Qfu http://blog.numino.net/
Dim glkDoc As Document '定义变量
HCsWd0 http://blog.numino.net/
Set glkDoc = Application.ActiveDocument '设置为当前文档
Hmq26Y http://blog.numino.net/
With glkDoc '设置文档参数
TG3jnW http://blog.numino.net/
With .PageSetup '设置【页面设置】参数
S2JO4K http://blog.numino.net/
.Orientation = wdOrientPortrait '页面方向:wdOrientPortrait--纵向,wdOrientLandscape--横向
bl9t6A http://blog.numino.net/
.PageWidth = CentimetersToPoints(21) '纸张宽21cm
Rph3O6 http://blog.numino.net/
.PageHeight = CentimetersToPoints(29.7) '纸张高29.7cm
A2VSB1 http://blog.numino.net/
.TopMargin = CentimetersToPoints(2) '上边距2cm
Z9qnS0 http://blog.numino.net/
.BottomMargin = CentimetersToPoints(1.5) '下边距1.5cm
Xnn5uA http://blog.numino.net/
.LeftMargin = CentimetersToPoints(2.5) '左边距2.5cm
yRxv9Z http://blog.numino.net/
.RightMargin = CentimetersToPoints(1.5) '右边距1.5cm
M6tzEd http://blog.numino.net/
.HeaderDistance = CentimetersToPoints(0.5) '页眉0.5cm
H4W2zM http://blog.numino.net/
.FooterDistance = CentimetersToPoints(0.5) '页脚0.5cm
QdBOA8 http://blog.numino.net/
End With '结束【页面设置】参数设置
k1d7aw http://blog.numino.net/
.Save '保存文档参数
xnCz70 http://blog.numino.net/
End With '结束文档参数设置
3WpjZR http://blog.numino.net/
End Sub
|
|