word使用vba设置文件起始页码

有时我们经常要设置插入一些代码，这些代码具有相同重复性，我们可以把它制作成VBA语言来执行，今天我们就来看看word中使用vba设置起始页码的技巧，请看下文详细介绍。
1、打开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、最后，你可以点击视图——宏——录制宏——输入宏名——点击确定——然后在编辑页面就按步骤操作插入页码，这样就可以把代码录制下来，然后稍微修改一下就可以了。
以上就是word用vba设置起始页码的教程，希望大家喜欢，请继续关注新锐。