Sub forum()

    Dim e                     As Endnote

    For Each e In Selection.Range.Endnotes
        Debug.Print e.Index
    Next

End Sub

Sub Demo()
Application.ScreenUpdating = False
Dim Rng As Range
With Selection
  Set Rng = .Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Format = False
    .Forward = True
    .Wrap = wdFindStop
    .MatchWildcards = False
    .Text = "^e"
  End With
  Do While .Find.Execute = True
   If .InRange(Rng) = False Then Exit Do
   MsgBox .Endnotes(1).Index
   .Collapse wdCollapseEnd
  Loop
  Rng.Select
End With
Application.ScreenUpdating = True
End Sub

Sub selectedEndnotes()
  ' Loop through selected endnotes.
  
  Dim eNotes As Endnotes
  Dim eNote As Endnote
  Dim rng_selected As Range
  Dim rng_marker As Range
  
  Set eNotes = ActiveDocument.Endnotes
  Set rng_selected = Selection.Range
  
  ' If nothing is selected, show a message
  If rng_selected.Start = rng_selected.End Then
    MsgBox "Please make a selection."
  End If
  
  Debug.Print ("The following endnotes are in selection:")
   
  For Each eNote In eNotes
    Set rng_marker = eNote.Reference.Characters.First ' Get marker range
    ' Only process endnotes whose marker .Start is between selection range.
    If rng_marker.Start >= rng_selected.Start And rng_marker.End <= rng_selected.End Then
      ' ---- Do whatever you're going to do to each endnote here. ---
      Debug.Print (eNote.Index)
    End If
  Next eNote

End Sub

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