Word 2007 文档中带有分节符的连续页码

Question

我有一个包含多个分节符的文档，我想为页脚部分的每一页添加一个页码。

当我使用 Insert - Footer 时，每个部分都以1开头。

有数百个部分，我不想为每个部分按“与以前相同”按钮。

如何在 Word 2007 中插入连续页码？

Answer 1

将以下宏添加到您的文档并运行一次：

Sub Main()
    On Error Resume Next
    For i = 0 To ActiveDocument.Sections.Count
        ActiveDocument.Sections(i).Footers(wdHeaderFooterEvenPages).PageNumbers.RestartNumberingAtSection = False
        ActiveDocument.Sections(i).Footers(wdHeaderFooterFirstPage).PageNumbers.RestartNumberingAtSection = False
        ActiveDocument.Sections(i).Footers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = False
    Next i
End Sub

您可以通过按 ALT-F11 添加此宏。这将打开 VBA 窗口。右键单击“ThisDocument”并选择“插入/模块”。复制并粘贴上面的代码，然后按 F5。这将强制每个部分进行连续的页码编号。