求word设置页面的宏代码

发布网友发布时间：2022-11-09 12:37

共1个回答

热心网友时间：2023-11-18 07:31

With ActiveDocument.PageSetup.TextColumns
.SetCount NumColumns:=2 ‘这句话用于分2栏，你可以改变那个数字，分为需要的栏数
.EvenlySpaced = True ’对称版式
.Width = CentimetersToPoints(5.84) ‘栏宽
.Spacing = CentimetersToPoints(2.96) ’栏间距
End With
With ActiveDocument.PageSetup ‘以下是页面设置
.TopMargin = CentimetersToPoints(2.2) ’上边距
.BottomMargin = CentimetersToPoints(2.2) ‘下边距
.LeftMargin = CentimetersToPoints(2) ’左边距
.RightMargin = CentimetersToPoints(3.5) ‘右边距
.HeaderDistance = CentimetersToPoints(1.5) ’页眉
.FooterDistance = CentimetersToPoints(1.5) ‘页脚
.PageWidth = CentimetersToPoints(27) ’页面宽度
.PageHeight = CentimetersToPoints(39) ‘页面高度
End With
word的宏是比较好理解的，基本就是英语白话。你可以尝试改变一些参数的值（那些数字）观察一下
注：以上的代码在我的电脑上运行无误追问谢谢！能帮我把　纸张方向：横向　和　页码范围：对称页边距　加上吗？（如图所示）

热心网友时间：2023-11-18 07:31