您可以設置頁碼的頁碼右擊重新啓動,從上下文菜單中選擇格式化頁碼,然後在對話框中打開現在,在進入所需的起始值。實際上對我來說似乎很容易。
如果您想使它更簡單,您可以將下面的宏添加到您的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