Microsoft Office Forums - View Single Post

gmayor · 09-10-2014, 10:03 PM

To run it from the hyperlink. Put the cursor in the hyperlink and run the following modified version. This will copy the section to the clipboard and return to the start position

Code:

Sub SelectAndCopySection()
Dim oRng As Range
Dim oStart As Range
Dim lngSect As Long
    Set oStart = Selection.Range
    If oStart.Hyperlinks.Count = 1 Then
        oStart.Hyperlinks(1).Follow
        lngSect = Selection.Information(wdActiveEndSectionNumber) + 1
        Set oRng = ActiveDocument.Sections(lngSect).Range
        oRng.End = oRng.End - 1
        oRng.Copy
        oStart.Select
    End If
End Sub