Microsoft Word重新启动页面编号

时间:2016-08-24 13:13:53

标签: ms-word

在MS Word for Windows 10中,如果您希望从" 1"重新启动页面编号在大型文档的中间,这样做目前是一个7步骤的过程。例如,假设您有一个包含4个部分的文档,并且每个部分都要重新启动#34; 1"页面编号。

我有两个相关的问题:

  1. 是否有一种方法,即不涉及向源材料添加任何代码,用户可以使用1或2步而不是7来重新开始页码?

  2. 如果不是,是否有人拥有允许上述功能的脚本?

  3. 谢谢

1 个答案:

答案 0 :(得分:1)

您可以通过右键单击页码,从上下文菜单中选择格式页码...然后在现在打开的对话框中输入所需的起始值来设置要重新启动的页码。实际上对我来说似乎很容易。

如果您想使其更简单,可以将以下宏添加到Normal.dotm文件中。然后,您可以向绑定到宏的快速访问工具栏添加一个按钮,只需单击一下即可执行命令。

请注意,页码编号始终适用于每个部分,因此您的文档必须包含相应的部分。

Sub RestartPageNumbers()
    Dim startingNumber As Integer

    startingNumber = InputBox("Start page number at: ", "Restart Page Numbers", 1)

    ActiveWindow.View.SeekView = WdSeekView.wdSeekCurrentPageFooter

    With Selection.HeaderFooter.PageNumbers
        .RestartNumberingAtSection = True
        .startingNumber = startingNumber
    End With

    ActiveWindow.View.SeekView = WdSeekView.wdSeekMainDocument
End Sub