Sub Demo()

    'https://www.msofficeforums.com/word-vba/50191-get-only-endnotes-selected-text.html

    Dim Rng                   As Range
    Dim hl                    As Hyperlink

    Const chromeFileLocation  As String = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

    Application.ScreenUpdating = False

    With Selection
        Set Rng = .Range

        ' If nothing is selected, show a message
        If .Start = .End Then
            MsgBox "Please make a selection containing 1 or more endnotes."
            Application.ScreenUpdating = True
            Exit Sub
        End If

        With .Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Format = False
            .Forward = True
            .Wrap = wdFindStop
            .MatchWildcards = False
            .Text = "^e"
        End With
        Do While .Find.Execute
            If Not .InRange(Rng) Then Exit Do

            For Each hl In .Endnotes(1).Range.Hyperlinks
                'Debug.Print e.Index & ": " & hl.Address
                Shell (Chr(34) & chromeFileLocation & Chr(34) & "-url " & hl.Address)
            Next
            .Collapse wdCollapseEnd
        Loop
        
        Rng.Select
        
    End With
    
    Application.ScreenUpdating = True
    
End Sub