vba 如何给word设置边距

1、本教程以新建的word文档为例，因教程以13版为例，新建word文档后缀名为docx。

3、按下组合键Alt+F11进入VBA窗口，此时VBA界面窗口如图所示。当然也可以调出开发工具模块，从开发工具项下进入VBA界面，由于篇幅有限，这里就不做过多叙述。

5、在模块窗口，复制粘贴以下代码：Sub 页面边距()Dim i, j, m, ni 屏顿幂垂= InputBox("请输入页诹鬃蛭镲面上边距的值", "自定义页面边距：上边距")j = InputBox("请输入页面下边距的值", "自定义页面边距：下边距")m = InputBox("请输入页面左边距的值", "自定义页面边距：左边距")n = InputBox("请输入页面右边距的值", "自定义页面边距：右边距") With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(i) .BottomMargin = CentimetersToPoints(j) .LeftMargin = CentimetersToPoints(m) .RightMargin = CentimetersToPoints(n) End WithEnd Sub

7、本教程以按下快捷键F5为例，此时会弹出自定义页面边距窗口，在对应的窗口输入对应的值，点击确认按钮或者键盘上的Enter键即可。为了显示效果更佳，本教程将设置边距数据设置的比较大，为了减少篇幅，图片只放置一个设置上边距的1.1（单位默认为厘米），其他参数，下边距3.3；左边距5.5；右边距7.7，如图所示，设置前后页面对比。