1、本教程以新建的word文档为例，因教程以13版为例，新建word文档后缀名为docx。
2、考虑到存储VBA代码，先将word文档另存为启用宏的工作簿，后缀名为docm。此保存方式于Excel类似，如果感兴趣的话，可以参考以下链接：
3、按下组合键Alt+F11进入VBA窗口，此时VBA界面窗口如图所示。当然也可以调出开发工具模块，从开发工具项下进入VBA界面，由于篇幅有限，这里就不做过多叙述。
4、插入一个模块，具体操作如下：单击菜单栏中的插入按钮，然后选择模块。
5、在模块窗口，复制粘贴以下代码：
Sub 页面边距()
Dim i, j, m, n
i = 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 With
End Sub
6、单击工具栏中的运行子程序/用户窗体按钮，形状有一个三角形，类似于播放按钮。当然按下键盘上的快捷键F5也能达到同样的效果。
7、本教程以按下快捷键F5为例，此时会弹出自定义页面边距窗口，在对应的窗口输入对应的值，点击确认按钮或者键盘上的Enter键即可。为了显示效果更佳，本教程将设置边距数据设置的比较大，为了减少篇幅，图片只放置一个设置上边距的1.1（单位默认为厘米），其他参数，下边距3.3；左边距5.5；右边距7.7，如图所示，设置前后页面对比。
8、按下组合键Ctrl+S对word文档进行保存。或者点击快速访问工具栏中的保存按钮进行保存，保存按钮位置如图所示，默认情况下是在标题栏那行，即窗口最高的那行。
