word 用vba如何设置起始页码

有时我们经常要设置插入一些代码，这些代码具有不异反复性，我们可以把它建造当作VBA说话来执行，那么怎么用VBA给WORD设置肇端页码呢？今天小编和大师分享一下。

工具/原料

• WORD2013

方式/步骤

1. 1

   小编利用的是WORD2013，打开WORD2013并选择空白文档，新建一个空白文档，也可以选择其它的模板打开进行编纂。

   
2. 2

   第二步，点击视图——点击宏的下拉箭头选择查看宏——在宏名那边输入：插入页码——建立。

   
3. 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. 4

   第四步，设置代码之后，在VBA编纂器那边点击保留——接着点击运行——选择：运行子过程/用户窗体。这样就可以运行代码。运行代码后，WORD编纂页面就主动设置了页码了。

   
5. 5

   第五步，办理宏位置：封闭VBA编纂器，在WORD本家儿页面那边点击视图——宏——查看宏——然后在宏的位置那边选择宏的具体位置，如在文档还在模板等。也可以点击办理器进行设置。

   
6. 6

   最后，你可以点击视图——宏——录制宏——输入宏名——点击确定——然后在编纂页面就按步调操作插入页码，这样就可以把代码录制下来，然后稍微点窜一下就可以了。

   

注重事项

• 但愿能帮忙到你