Answer: Combining a search and replace with adding hyperlinks

Plz try this:

Sub Links()
    Dim oDoc As Document, oChanges As Document
    
    Dim oTable As Table
    Dim oRng As Range
    
    'Dim rFindText As Range, rReplacement As Range
    Dim rFindText As String, rHyperlink As String
    
    Dim i As Long
    Dim sFname As String
    
    sFname = "myexternaltablespathway.docx"'this sFname must be a full