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

有时我们经常要设置插入一些代码，这些代码具有相同重复性，我们可以把它制作成VBA语言来执行，今天我们就来看看word中使用vba设置起始页码的技巧，请看下文详细介绍。

软件名称：

word2013 官方免费版

软件大小：

20.5MB

更新时间：

2014-07-21

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设置起始页码的教程，希望大家喜欢，请继续关注脚本之家。

相关推荐：

Word2010中怎么设置VBA段落格式?

Word中VBA编辑器怎么修改代码默认的格式?

Word 2007怎么利用VBA代码设置自动另存备份文件？