Word从指定页开始插入页码

### 在 Microsoft Word 中从特定页码位置开始插入页码 为了实现从指定页面开始添加页码，在 Microsoft Word 文档中可以采用分节符来创建独立的页码编号方案。具体方法如下： 通过设置不同的部分，可以在文档的不同区域应用不同样式的页码或完全不显示页码。当需要从某一页开始加入页码时，应该先在该页之前插入一个下一页分节符，从而形成新的章节。 对于编程方式操作这一需求，VBA (Visual Basic for Applications) 提供了一种自动化手段。下面是一段 VBA 脚本用于实现在给定起始页之后启动连续页码的功能[^1]： ```vba Sub InsertPageNumbersFromSpecificPage() Dim sec As Section Set sec = ActiveDocument.Sections(StartSectionIndex) ' 设置新节的页脚并启用链接到前一节 With sec.Headers(wdHeaderFooterPrimary).Range.PageNumbers .Add PageNumberAlignment:=wdAlignPageNumberRight, FirstPage:=False End With ' 断开与上一节连接以便自定义此后的页码格式 Call DisconnectNextSectionHeaders(sec.Index + 1) ' 开启目标区间的页码编排 For Each sec In ActiveDocument.Sections If sec.Index >= StartSectionIndex Then With sec.Footers(wdHeaderFooterPrimary).Range.Fields.Add(Range:=sec.Footers(wdHeaderFooterPrimary).Range, Type:=wdFieldEmpty, Text:="PAGE", PreserveFormatting:=True) .Result.Text = "第" & (.Result - InitialPageOffset + 1) & "页" End With End If Next sec End Sub ' 辅助函数：断开头部/底部同前一节关联 Private Sub DisconnectNextSectionHeaders(ByVal startIndex As Integer) Do While startIndex <= ActiveDocument.Sections.Count With ActiveDocument.Sections(startIndex).Footers(wdHeaderFooterPrimary) .LinkToPrevious = False End With startIndex = startIndex + 1 Loop End Sub ``` 上述代码片段展示了如何利用 VBA 来控制Word中的页眉和页脚属性，并且能够灵活调整页码的位置以及样式。注意 `StartSectionIndex` 和 `InitialPageOffset` 需要依据实际情况设定，前者表示希望开始计数的那一章节数字；后者则是用来补偿实际物理页数与期望打印出来的逻辑页号之间的差异。