Microsoft Office Forums - View Single Post - VBA Search Table for Text/Select Text/Insert Hyperlink

gmayor · 03-24-2015, 12:57 AM

You could use something like

Code:

Sub AddHyperlink(oDoc As Document, _
                 strText As String, _
                 strLink As String)
Dim oTable As Table
Dim oRng As Range
    Set oTable = oDoc.Tables(1)
    Set oRng = oTable.Range
    With oRng.Find
        Do While .Execute(FindText:=strText)
            oDoc.Hyperlinks.Add Anchor:=oRng, _
                                Address:=strLink, _
                                SubAddress:="", _
                                ScreenTip:="", _
                                TextToDisplay:=oRng.Text, _
                                Target:=""
            oRng.Collapse 0
            Exit Do
        Loop
    End With
lbl_Exit:
    Exit Sub
End Sub

and call that sub from the original code e.g.

Code:

AddHyperlink ActiveDocument, "Test A", "http:\\www.gmayor.com\WordPages.htm"

You can add any of the other parameters that you require.