It is currently Sun Aug 20, 2017 3:02 am


Start a new page after the endnotes in a Word documen

Support for any program including installing and running

Moderator: liljim

Start a new page after the endnotes in a Word documen

Postby Masck » Wed Jun 14, 2017 8:44 am

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?
Masck
Newbie
Newbie
 
Posts: 1
Joined: Wed Jun 14, 2017 8:40 am
Operating System: win 7

Thanks given:0
Thanks received:0
Top

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

Postby Leasa » Mon Jun 19, 2017 5:27 am

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
Leasa
Newbie
Newbie
 
Posts: 1
Joined: Mon Jun 19, 2017 5:20 am

Thanks given:0
Thanks received:0
Top


Return to Misc. Software

Who is online

Users browsing this forum: No registered users and 1 guest

cron