Sub getPosition()
    Debug.Print Selection.Information(wdVerticalPositionRelativeToPage)
    Debug.Print Selection.Information(wdHorizontalPositionRelativeToPage)
End Sub

Sub CombinedTest()
    Dim directory As String
    Dim Raw As String
    Dim NumValues As Integer, J As Integer
    Dim strdocid As String
    Dim UserVals() As String
    'define the style
    Dim strStyle As String
    strStyle = "Subtle Emphasis"
    'set the search range
    Dim rngSearch As Range
    Set rngSearch = ActiveDocument.Range
    'set the search string - value set moved below
    Dim strSearch As String
    'set the target address for the hyperlink - value set moved below
    Dim strAddress As String
    
    directory = "C:\DaviesTmp\WIP\"
    Open (directory & "StringSearch.txt") For Input As #1
    Line Input #1, Raw
    NumValues = Val(Raw)
    ReDim UserVals(NumValues)
    
    For J = 1 To NumValues
        Set rngSearch = ActiveDocument.Range
        Line Input #1, UserVals(J)
        strdocid = Right(UserVals(J), 15)
    'strdocid finds DocID with extension counting in from right
        strSearch = Left(strdocid, 11)
    'strSearch finds DocID without extension using previous strdocid value counting in from left
        strAddress = UserVals(J)
        With rngSearch.Find
            Do While .Execute(findText:=strSearch, MatchWholeWord:=True, Forward:=True) = True
                With rngSearch 'we will work with what is found as it will be the selection
                getPosition
                ActiveDocument.Hyperlinks.Add Anchor:=rngSearch, Address:=strAddress
                    '.Style = ActiveDocument.Styles(strStyle) 'throw the style on it after the link-remove apostrophe at beginning if you need style change
                End With
                rngSearch.Collapse Direction:=wdCollapseEnd
                'keep it moving
            Loop
        End With
    Next J
    Close #1
End Sub

Dim oRng As Range
Sub getPosition()
    Debug.Print oRng.Information(wdVerticalPositionRelativeToPage)
    Debug.Print oRng.Information(wdHorizontalPositionRelativeToPage)
End Sub

Sub Test()
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "Test Words"
    While .Execute
      getPosition
      oRng.Collapse wdCollapseEnd
    Wend
  End With
End Sub