Sub AddHyperlinks()

    ' Open the Excel file containing the hyperlinks
    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    Set xlApp = CreateObject("Excel.Application")
    Set xlWB = xlApp.Workbooks.Open("C:\Path\To\Hyperlinks.xlsx")
    
    ' Loop through each occurrence of "Secretary" in the document
    Dim doc As Document
    Set doc = ActiveDocument
    Dim rng As Range
    Set rng = doc.Content
    Dim counter As Integer
    counter = 1
    Do While rng.Find.Execute("Secretary", MatchWholeWord:=True)
        ' Add the hyperlink to this occurrence of "Secretary"
        Dim hyperlink As String
        hyperlink = xlWB.Sheets(1).Cells(counter, 1).Value
        Dim linkRange As Range
        Set linkRange = rng.Duplicate
        linkRange.Collapse Direction:=wdCollapseStart
        linkRange.MoveEndUntil Cset:=" "
        rng.Hyperlinks.Add Anchor:=linkRange, Address:=hyperlink
        counter = counter + 1
    Loop
    
    ' Close the Excel file
    xlWB.Close
    xlApp.Quit
End Sub