Sub CopyFormattedTextNotesBoxes()
' Paul Beverley - Version 09.02.19
' Creates a new document of the formatted main text + formatted notes text

Set myDoc = ActiveDocument
Set rng = ActiveDocument.Content
Documents.Add
Set rng2 = ActiveDocument.Content
rng2.FormattedText = rng.FormattedText
rng2.Collapse wdCollapseEnd
If myDoc.Footnotes.Count > 0 Then
  rng2.FormattedText = myDoc.StoryRanges(wdFootnotesStory).FormattedText
End If
rng2.Collapse wdCollapseEnd
If myDoc.Endnotes.Count > 0 Then
  rng2.FormattedText = myDoc.StoryRanges(wdEndnotesStory).FormattedText
End If
End Sub