1、小编使用的是WORD2013，打开WORD2013并选择空白文档，新建一个空白文档，也可以选择其它的模板打开进行编辑。
2、第二步，点击视图——点击宏的下拉箭头选择查看宏——在宏名那里输入：插入页码——创建。
3、第三步，点击创建后就会直接进入到VBA编辑页面，并且已经按上一步的设置编辑好名称和提示信息。在闪动光标擒歙常泺那里输入如下编码：With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary) Set rng = .Range rng.Text = "第 " rng.Collapse wdCollapseEnd ActiveDocument.Fields.Add rng, wdFieldPage, "Page" Set rng = .Range rng.Collapse wdCollapseEnd rng.Text = " 页 / 共 " rng.Collapse wdCollapseEnd ActiveDocument.Fields.Add rng, wdFieldNumPages, "Pages" Set rng = .Range rng.Collapse wdCollapseEnd rng.Text = " 页 " .Range.Fields.Update .Range.ParagraphFormat.Alignment = wdAlignParagraphCenterEnd With
4、第四步，设置代码之后，在VBA编辑器那里点击保存——接着点击运行——选择：运行子过程/用户窗体。这样就可以运行代码。运行代码后，WORD编辑页面就自动设置了页码了。
5、第五步，管理宏位置：关闭VBA编辑器，在WORD主页面那里点击视图——宏——查看宏——然后在宏的位置那里选择宏的具体位置，如在文档还在模板等。也可以点击管理器进行设置。
6、最后，你可以点击视图——宏——录制宏——输入宏名——点击确定——然后在编辑页面就按步骤操作插入页码，这样就可以把代码录制下来，然后稍微修改一下就可以了。
