Page 1 of 1

Start a new page after the endnotes in a Word documen

PostPosted: Wed Jun 14, 2017 8:44 am
by Masck
hello,

I want to start a new page after the endnotes as a new chapter. But when I click the end of the endnotes and want to insert a new page, I just find that the button is not available.

How can I insert a new page after the endnotes in Word 2010? Any idea?

Re: Start a new page after the endnotes in a Word documen

PostPosted: Mon Jun 19, 2017 5:27 am
by Leasa
You can insert a break for that.

1.Put insertion pointer at the end of the document but ahead of endnotes. Or you can press “Ctrl+ End”.
2. Then click “Page Layout” tab--> “Breaks”---> “Next Page”. All endnotes will go to a new page.
3. Now click “References” and then the extend button to open “Footnote and Endnote” dialog box.
4. In the box, choose “Endnotes”.Then select “End of section’.
5. Lastly, click “Apply”. All endnotes shall go back to the end of the section and leave the new page blank where is now independent of the endnote area.

Or you can simply write VBA codes.

For a document with only one section:

Code: Select all
Sub InsertNewPageForOneSectionDoc()
  Selection.EndKey Unit:=wdStory
  Selection.InsertBreak Type:=wdSectionBreakNextPage

  With Selection.EndnoteOptions
    .Location = wdEndOfSection
    .NumberingRule = wdRestartContinuous
    .StartingNumber = 1
    .NumberStyle = wdNoteNumberStyleLowercaseRoman
  End With
End Sub


For a document with multi-section:

Code: Select all
Sub InsertNewPageForDocWithSections()
  Selection.EndKey Unit:=wdStory
  Selection.InsertBreak Type:=wdSectionBreakNextPage

  With Selection.EndnoteOptions
    .Location = wdEndOfSection
    .NumberingRule = wdRestartContinuous
    .StartingNumber = 1
    .NumberStyle = wdNoteNumberStyleLowercaseRoman
  End With

  With ActiveDocument.PageSetup
    .SuppressEndnotes = True
  End With

  Selection.MoveUp Unit:=wdLine, Count:=2

  With Selection.PageSetup
    .SuppressEndnotes = False
  End With
End Sub




Good luck