Microsoft Wordの再起動ページの番号付け

Question

MS Word for Windows 10では、大きな文書の途中で「1」からページ番号を再開するには、現在7ステップの処理が必要です。たとえば、セクションが4つのドキュメントがあり、セクションごとにページ番号を「1」から再開したいとします。

私は2つの関連する質問だった：

1. が7とは反対に、ユーザが1つのまたは2段階でページ番号を再起動することができ、原料に任意のコードを追加関与しない、方法はありますか？

2. 上記の機能を許可するスクリプトを持っていない人はいませんか？

おかげ

Answer 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