Code:
Sub ForNovive()
AddHyperlink ActiveDocument, "App A.", "C:\\My Documents\File\Appendix A.docx"
End Sub
Sub AddHyperlink(oDoc As Document, _
strText As String, _
strLink As String)
Dim oTbl As Table
Dim oHL As Hyperlink
Dim oRng As Range, oHLRange
For Each oTbl In oDoc.Tables
Set oRng = oTbl.Range
With oRng.Find
.Wrap = wdFindStop
Do While .Execute(FindText:=strText)
Set oHL = oDoc.Hyperlinks.Add(Anchor:=oRng.Duplicate, _
Address:=strLink, SubAddress:="", _
ScreenTip:="", TextToDisplay:=oRng.Duplicate.Text, _
Target:="")
oRng.Start = oHL.Range.End
Loop
End With
Next oTbl
lbl_Exit:
Exit Sub
End Sub