word 用vba如何设置起始页码

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

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

5、第五步，管理宏位置：关闭VBA编辑器，在WORD主页面那里点击视图——宏——查看宏——然后在宏的位置那里选择宏的具体位置，如在文档还在模板等。也可以点击管理器进行设置。