If the sample document is truly representative then the following two macros will resolve the issue. The first will add sectionbreaks before each Heading 1 Styled paragraph and is a one time process. The second will copy the section
you select from the index to the clipboard.
Note: If you are browsing the document want to select the section the cursor is in you will have to remove the +1 from the line:
lngSect = Selection.Information(wdActiveEndSectionNumber)
+ 1
This is because the index hyperlinks select the end of the previous section before the section break. It is not really worth bookmarking the headings and changing all the hyperlinks.
You could create a second macro with the change to provide both options.
Check it works as required before saving the changes to your document.
If you don't know what to do with the listings see
http://www.gmayor.com/installing_macro.htm
Code:
Sub Macro1()
Dim opara As Paragraph
Dim orng As Range
For Each opara In ActiveDocument.Paragraphs
If opara.Style = "Heading 1" Then
Set orng = opara.Range
orng.Collapse wdCollapseStart
orng.InsertBreak wdSectionBreakContinuous
End If
Next opara
End Sub
Sub SelectAndCopySection()
Dim orng As Range
Dim lngSect As Long
lngSect = Selection.Information(wdActiveEndSectionNumber) + 1
Set orng = ActiveDocument.Sections(lngSect).Range
orng.End = orng.End - 1
orng.Select
End Sub