Copy from a huge document

gmayor · #6 09-09-2014, 08:55 PM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copy webcontent to a document	elmnas	Word VBA	1	07-15-2014 10:08 PM
Copy only Tables of a Document	Loretti	Word	1	11-12-2012 03:35 PM
Copy from one word document to another no identical	gmurphy	Word	3	09-07-2011 04:28 AM
How to get rid of Huge Gaps in my 300 pages Document?	SpaceMuppet	Word	7	05-04-2011 12:26 PM
WORD 2003 Need help splitting a HUGE Document	dlawson	Word	4	04-14-2009 12:22 PM